マウスカーソルの位置を変更する（座標移動する）【SetCursorPos】【ExcelVBA】

マウスカーソルの位置を変更する(SetCursorPos)サンプルコード

'■WindowsAPI取得のため、宣言(32bit/64bit)
#If Win64 Then
    Declare PtrSafe Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long
#Else
    Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long
#End If

Public Sub sample()
 
    '■マウスカーソル位置座標を変更する
    Call SetCursorPos(0, 0) 'x座標（水平位置）を0 y座標（垂直位置）を0

End Sub

注意点

• 特にありません。

関連記事

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