1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개
글 수 65

마우스 좌표를 반환 받기

조회 수 5876 추천 수 0 2009.05.07 13:18:27
[레벨:30]아별 *.107.204.56
출처 : 엑사모_팁

관련파일 : VBA878_GetMousePosition.zip

듀얼 모니터 사용 시, 서브 모니터가 주 모니터의 좌측에 있을 경우 x값이 음수값으로 표시된다.

 Option Explicit

'마우스 좌표를 반환받기 위한 API함수 선언
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

' Type 문으로 사용자 정이 데이터 형식을 선언
Public Type POINTAPI
    x As Long
    y As Long
End Type

Sub dhGetCurorPos()

Dim dhCursor As POINTAPI

    '마우스의 절대좌표를 반환
    GetCursorPos dhCursor
   
    MsgBox "현재 마우스의 X 좌표는 " & dhCursor.x & vbCr _
            & "현재 마우스의 Y 좌표는 " & dhCursor.y & "입니다", vbInformation, _
            "MagicSheet & 엑사모"
   
End Sub








이 게시물을...
profile
첨부
엮인글 :
http://abyul.com/zbxe/65191/6e0/trackback
목록
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34142
목록
쓰기