Mausposition in Zellen anzeigen
28.08.2013 06:57:59
Franz
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Sub Mausposition()
Dim pTargetPoint As POINTAPI
Dim lRetVal As Long
lRetVal = GetCursorPos(pTargetPoint)
Cells(1, 2).Value = pTargetPoint.x
Cells(2, 2).Value = pTargetPoint.y
End Sub
Kann man das Makro so abändern, dass die aktuelle Mausposition bei Bewegung ohne Klick "live ", d.h. ohne Verzögerung angezeigt wird?
Anzeige