The code below will return the x- and y-coordinates in pixels as opposed to
points. Note that it is also window based instead of worksheet based. Doing
something with it is the challenge:
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type
Sub xxx()
Dim pos As POINTAPI
GetCursorPos pos
MsgBox pos.x & vbCr & pos.y
End Sub
I have recently posted code that determines the position of the top-left
corner of the worksheet in pixels and also converts pixels to points and
compensates (albeit not perfectly) for zoom. You need to know the position of
the top-left corner of the worksheet in pixels so that you can subtract the
correct offsets if you are to convert to points. You can thus direct the
cursor to a specified point within the worksheet. If you're interested:
http://tinyurl.com/l7uog
Regards,
Greg
