Get mouse coordinates with simple macro?

[Kelvin Stott]

Hi All,

Following this recent question on creating mouse-interactive embedded charts (http://www.mrexcel.com/forum/excel-...ouse-interactive-chartobject.html#post3451252), I have struggled to set up a class module with the mousedown event, because I have many sheets with embedded charts, some of which must have the same name because the sheets are copied from a common template.

Therefore, I was wondering if it is possible to get the mouse coordinates/movements without using a class module and mousedown event, by assigning a simple macro to my embedded chart so that the macro is activated to record the mouse coordinates/movements when I click on the chart?

This would certainly make coding much simpler, if someone could please suggest what command I need in my macro to track the mouse...

Thanks in advance for any help.

Best regards,
Kelvin

 

[chuckchuckit]

Try this:

Dim MyPointAPI As POINTAPI
Private Type POINTAPI
  x As Long
  y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Then:

Public Sub MouseCursorGetOurXY()
    Dim l As Long

    l = GetCursorPos(MyPointAPI) 'get our cursor position first
    msgbox CStr(MyPointAPI.x) & ", " & CStr(MyPointAPI.y) 'displays cursor X Y coordinates
End Sub

 

[Kelvin Stott]

Thanks, Chuck. Where do I put this code? How does it work? Will it tell me where the mouse is clicked and dragged to (start and end coordinates), and whether Shift and/or Control was pressed?

 

[chuckchuckit]

Put both code sections above in a module. Then run the 2nd code sub. It will give you the X, Y coordinates of wherever your mouse is at that time.