VBAでマウス操作自動化アプリ作成　〜後編〜　キーボード入力追加とコード整理

ExcelVBAでユーザーフォームとWindowsAPIを使用して
マウスカーソルを自動で動かして指定した位置でクリックして
指定した秒数待機させるフォームアプリケーションを作成していきます

完成品ではないですが、ちょっとしたマウスの自動化ができます
前回の動画で頂いたbit問題も解消し文字サイズも改良
※動画内画面拡大の影響でフォームが崩れている部分があります

—————————————
■マウスイベントを使用するAPI　宣言コード
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 cButtons As Long = 0, Optional ByVal dwExtraInfo As LongPtr = 0)

■マウスカーソル座標を設定するAPI　宣言コード
Declare PtrSafe Function SetCursorPos Lib “user32” (ByVal x As Long, ByVal y As Long) As Long

■マウスカーソル座標を取得するAPI　宣言コード
Declare PtrSafe Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Type POINTAPI
x As Long
y As Long
End Type

Public Sub メイン()

Application.Visible = False
UserForm1.Show

End Sub

■マウス操作自動化前編動画

■実際に使用したコード格納先

マウス自動化アプリ作成（ユーザーフォーム×WindowsAPI）

■Microsoft様のWindowsAPI一覧ページ
https://docs.microsoft.com/ja-jp/windows/win32/apiindex/windows-api-list

■キーボード操作の自動化　Sendkeys

また不明点や、こういう動画作って欲しい・こうしたほうがいい
こういったことを自動化できると生産性が上がるといった等
気軽にコメント頂ければ幸いです

#VBA
#Excel
#マクロ