Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zum Sub Mausafrage umbauern

Zum Sub Mausafrage umbauern
17.10.2005 00:13:50
Burgel
Hallo Excelfreunde
Mit dem Nachfolgenden Makro kann man laut beschreibung 5 Sek. die Maus X,Y aufzeichnen und abspielen.
Leider leuft es bei mir nicht weil ich nicht kapiere wie es gestartet werden kann. Beim einfügen in ein Modul werden schon etliche Zeilen rot angezeigt.
Kann man dieses Makro so umschreiben:

Sub Maus_X_Y()
Befehle
End Sub

Beim Sprung in das Makro sollte auf ein Mausereignis gewartet werden.
Klicke ich dann einen Bildpunkt an,
so sollte in X und Y eine Koridinade eines Pildpunktes zurückgegeben werden.
und in der Variablen MWahl eine 1 oder 2 für Maustaste Links oder rechts.
oder ein String mit L + R .
Hat jemand eine Idee oder Teillösung.
Ich grüße euch Burgel
Den Code findet ihr unter
www.herber.de/forum/archiv/484to488/t485065.htm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zum Sub Mausafrage umbauern
17.10.2005 06:14:47
Hajo_Zi
Hallo Burgel,
der Code war nicht korrekt dargestellt.

Private Declare Function GetCursorPos Lib "user32" (cPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal zeit As Long)
Private Type POINTAPI
x As Long
y As Long
End Type
Sub aufzeichnen()
Dim tPoint As POINTAPI
Dim x As Long
Dim y
Dim a
Dim Ende As Single, i As Long
Sleep 500
Open "c:\positionen.txt" For Output As #1
DoEvents
Ende = Timer + 5
Do While Timer <= Ende
i = i + 1
x = GetCursorPos(tPoint)
DoEvents
Print #1, Trim(tPoint.x), Trim(tPoint.y)
' Je kleiner der Wert desto öfter wird Mausposition ausgelesen !
Sleep 1
Loop
Close #1
MsgBox ("ende aufzeichen")
End Sub
Sub abspielen()
Dim x As Long, y As Long, n As Long
On Error GoTo Ende
Open "c:\positionen.txt" For Input As #1    ' Datei zum Einlesen öffnen.
Do While Not EOF(1)    ' Auf Dateiende abfragen.
Line Input #1, dats    ' Datenzeilen lesen.
x = Left(dats, 5)
y = Right(dats, 5)
'je höher die zeit desto langsammer die abspielung !
Sleep 1
n = SetCursorPos(x, y)
Loop
Close #1    ' Datei schließen.
MsgBox ("fertig")
Ende:
End Sub
Sub löschen()
On Error Resume Next
Kill "c:\positionen.txt"
MsgBox ("Datei wurde gelöscht !"), vbInformation
End Sub

Sub aufzeichnen() ' aufzeichnen der Mausbewegung
Sub abspielen() ' abspielen der Mausbewegung
Sub löschen() ' löschen der Datei in der die Mausbewegung gespeichert wurde
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP2.


Anzeige
AW: Zum Sub Mausafrage umbauern
17.10.2005 18:20:40
Burgel
Hallo
Supper das Makro leuft jetzt.
Wie kann ich erreichen das nur ein wert Abgefragt wird bei einem Mausklick.
und die Maustaste die dabei gedrückt wurde, auswertbar ist.
Sub Starten
Eventulell noch eine Anzeigebox mit Bildpunkt wählen.
Maustaste ein punkt wählen und klicken
sub verlassen
in X und Y die korridinaden des Punktes
in T welche maustaste wurde bei der wahl gedrückt.
Gruß Burgel
AW: Zum Sub Mausafrage umbauern
18.10.2005 20:57:49
Burgel
Hallo Aton
Super
PS. Kann es sein das einige Makros schneller laufen. ca 10 mal.
Gruß Burgel
AW: Zum Sub Mausafrage umbauern
20.10.2005 23:48:55
Aton
Hallo Burgel
Eine gute und eine schlechte Nachricht.
zuerst gute:
Beschleuniger Hilfe Anzeigen:
Eine Celle anklicken und folgendes eintragen.
=Hilfe_BS("Start") und dann return.
nach ca. 10 Sek. erscheint Eingabefenster
"Hilfe A" und dann return. Nicht probieren dei falscher Eingabe, Deinstallation.
Die schlechte Nachricht ist.
Beschleuniger löscht sich nach 11 Tagen.
Es ein versehn meinerseits war.
Gruß Aton

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige