Get Mouse Coordinates
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Sub ShowPos()
Dim lRetVal As Long
Dim Pos As POINTAPI
lRetVal = GetCursorPos(Pos)
MsgBox Pos.X & ", " & Pos.Y
End Sub
You can use the OnKey method to assign it to a shortcut combination or
select options in Tools=Macro=Macros after you select your macro.
--
Regards,
Tom Ogilvy
"Zone" wrote:
I want to position the mouse on the screen and press a shortcut key (like
Ctrl-d) to get the mouse coordinates. Thanks, James
|