Thema: Auslesen der aktuellen Mausposition

Home

Gruppe

API

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

Excel to Word Kapitel VBA	Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht	Googel Maps API in Excel VBA einfügen
Markierung mit Maus langsam	rechte Maustaste Zellen formatieren funzt nicht
Mauszeiger Quickinfo	Rechte Maustaste
Listboxeintrag unter Mauszeiger	Punkte im Diagramm unter der Maus ermitteln
AutoFormen Werte per Mausklick zuordnen	Berechnung vom Endkapital
Mauszeiger auf CommandButton	Diagrammwerte am Mauszeiger unterdrücken
Kontextmenü der rechten Maustaste anpassen	Bei Mausklick auf eine Zelle eins weiterzählen
Menü der rechten Maustaste	API? - xl-Parameter aus Long-Wert bestimmen
Berechnung Kapitalanlage	Telefonnummer auslesen per TAPI
Menü der rechten Maustaste	Sendkeys-Befehl für rechte Maustaste
Rechte Maustaste	Mausklick auf Autoform (Bild) registrieren
Rechter Mausklick in geschütztem Blatt	Formel runter ziehen mit der Maus 3er Schritte
Läuft RSAPI.DLL mit WIN2000 und XP?	mit der Maus Text aus UF-Textfeld kopierenEinfügen
Zahl per Mausklick in andere Zelle kopieren	Systemauslastung mitloggen
rechts maus klick verhindern...	JAVA API mit VBA verwenden
Werte anzeigen mit re. Maustaste	Alternative zu "Formel mit Maus ziehen"?
Alternative zu "Formel mit Maus ziehen"?	Maus Scrollen verhindern...
Text erscheinen lassen wenn maus darüber	Inhalt von Zellen kopieren per Mausklick
Mit Mausklick auf eine Zelle automatisch sortieren	Mausclick aktiviert Taste
Mit Mausklick Datum verschieben ?	Msgbox bei gedrückter Maustaste
Rechte Maustaste auf Registerkarte	Text in Textbox mit Maus scrollen
PageSetup - absolute Systemauslastung	Mausclick auf Zelle generieren
Mausklick: Wechsel in erste freie Zelle der Spalte	Per Mausklick Zellwert in andere Zelle übernehmen
Probleme mit rechter Maustaste	Diagrammauswertung