Private Sub Object_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Object The name of the ChartSpace or PivotTable object that you are trapping this event for.
Button The mouse button that was released. Returns 1 if the primary mouse button was released, 2 if the secondary mouse button was released, or 4 if the middle mouse button was released.
Shift The state of the SHIFT, CTRL, and ALT keys when the event occurred. Returns 1 if the SHIFT key was pressed, 2 if the CTRL key was pressed, or 4 if the ALT key was pressed. Returns 0 if neither the SHIFT, CTRL, nor ALT keys were pressed.
x The X coordinate of the mouse pointer.
y The Y coordinate of the mouse pointer.
Remarks
For information about using events with VBScript, see Declaring and Using Event Procedures in VBScript .