mouse position as a variable

[akroyde]

is it possible to assign the position at which the mouse left button is pressed to two variables (x coord,y coord) so that macros can act upon where the mouse is. This would save me having to rewrite macros for different positions

cheers

pete

[Tom Schreiner]

Hi
Sure...
In your sub, add the variables which will hold the pointer coords.

Ex:

Private Sub YourControl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Button = 1 Then YourSub X, Y

End Sub



Sub YourSub(X_Coord As Single, Y_Coord As Single)

Range("A1") = X_Coord

Range("A2") = Y_Coord

End Sub

Tom