マウスをクリック(左クリック/右クリック)する【mouse_event】【ExcelVBA】

左クリック/右クリックする(mouse_event)サンプルコード

'■WindowsAPI取得のため、宣言(32bit/64bit)
#If Win64 Then
       Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
                                                     Optional ByVal dx As Long = 0, _
                                                     Optional ByVal dy As Long = 0, _
                                                     Optional ByVal dwDate As Long = 0, _
                                                     Optional ByVal dwExtraInfo As Long = 0)
#Else
      Declare Sub mouse_event Lib “user32” (ByVal dwFlags As Long, _
                                                     Optional ByVal dx As Long = 0, _
                                                     Optional ByVal dy As Long = 0, _
                                                     Optional ByVal dwDate As Long = 0, _
                                                     Optional ByVal dwExtraInfo As Long = 0)
#End If

Public Sub sample()
 
    mouse_event 2   '左ボタンを押した
    mouse_event 4   '左ボタンを離した

    mouse_event 8   '右ボタンを押した
    mouse_event 10  '右ボタンを離した

End Sub

注意点

• 実際には指定の座標に移動してから、クリックすると思われますので、こちらの記事参照ください。

関連記事

• 任意の時間マウスの座標を取得する【GetCursorPos応用】
• マウスの座標を取得する【GetCursorPos】