Maus/Cursor neu positionieren
13.04.2007 16:03:00
matthias
ist es möglich die Maus mittels VBA neu zu positionieren.
Zur Ermittlung der ursprünglichen Position könnte
Private Type POINTAPI
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Sub ZeigeCursorPosition()
Dim udtPointer As POINTAPI
Dim pos As Long
pos = GetCursorPos(udtPointer)
If pos = 0 Then
MsgBox "Es ist ein Fehler aufgetreten. Fehlernummer: " & Err.LastDllError
Exit Sub
End If
ActiveCell.Value = "x = " & udtPointer.x & " y = " & udtPointer.y
End Sub
verwendet werden.
Danke.
Matthias
Anzeige