VBAサンプル
=========================================================
=== 開始!!================================================
=========================================================
Sub マウスの座標を確認するマクロ()
Dim MousePt As mPointAPI
Dim mPSet As Long
Call GetCursorPos(MousePt)
With MousePt
mouseX = .x
mouseY = .Y
End With
'マウスカーソル位置確認用MsgBox
MsgBox "X座標は" & mouseX & " Y座標は" & mouseY
End Sub
=========================================================
=== 終了!!================================================
=========================================================