VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auslesen der aktuellen Mausposition

Gruppe

API

Bereich

Maus

Thema

Auslesen der aktuellen Mausposition

Problem

Die aktuelle Mausposition soll ausgelesen werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type

Sub WhereAmI()
    Dim pTargetPoint As POINTAPI
    Dim lRetVal As Long
    lRetVal = GetCursorPos(pTargetPoint)
    MsgBox "Meine Position:" & vbLf & _
      pTargetPoint.x & "," & pTargetPoint.y
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen API und Maus