関数・メソッド

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

マウスカーソル位置の変更(座標移動)はWindowsAPIのSetCursorPosで取得します。

マウスカーソルの位置を変更する(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

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました