Microsoft Excel

Herbers Excel/VBA-Archiv

Was stimmt nicht

Betrifft: Was stimmt nicht von: Rolf
Geschrieben am: 12.08.2008 11:28:51

Hallo Leute!
Ich möchte das Maus(lenke taste) auf bestimmte Position klickt.
Macht es aber nicht, der Maus Zeiger wird nur auf Position gebracht
(auf Kontextmenu) das sich blau einfärbt.

Private Declare


Function SetCursorPos Lib "user32" (ByVal _
        X As Long, ByVal Y As Long) As Long

Private Declare 


Sub mouse_event Lib "user32.dll" (ByVal _
dwFlags As Long, _
        ByVal dx As Long, ByVal dy As Long, _
        ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2 'Die linke Maustaste wird gedrückt
Private Const MOUSEEVENTF_LEFTUP = &H4 'Die linke Maustaste wird losgelassen
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 'Die rechte Maustaste wird gedrückt
Private Const MOUSEEVENTF_RIGHTUP = &H10 'Die linke Maustaste wird losgelassen
        



Sub xy_maus()
        
    Dim xPos As Long
    Dim yPos As Long

    xPos = 34: yPos = 630
   ' yPos = 630
    
    SetCursorPos xPos, yPos 'Cursor an angegebener Stelle platzieren
    
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0     'Maustaste eindrücken
    
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0          'Maustaste loslassen


End Sub



Was ist Falsch??
Grüße
Rolf

  

Betrifft: AW: Was stimmt nicht von: Hoffi
Geschrieben am: 12.08.2008 17:43:22

Hallo Rolf,

beim zweiten mouse_event fehlt das F :

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 'Maustaste loslassen

Grüße Hoffi


  

Betrifft: AW: Was stimmt nicht von: Rolf
Geschrieben am: 12.08.2008 18:57:58

Hallo Hoffi!
Du hast ja ein scharfes Auge!
Damit ist die Sache erledigt!
Grüße
Rolf


 

Beiträge aus den Excel-Beispielen zum Thema "Was stimmt nicht"