プログラミング

ExcelVBA　クリックした座標を取得する方法

クリックした座標を取得する方法です。

#If Win64 Then
    Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
#Else
    Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
#End If

Public Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
    x As Long
    y As Long
End Type

Sub MyMouseClick()
    Dim Poi As POINTAPI
    GetCursorPos Poi
    MsgBox("x:" & Poi.x & " y:" & Poi.y)
End Sub

-プログラミング