Access VBA:マウスポインターの形状を変更する方法

Access VBAでマウスポインターの形状を変更する方法について覚書。

マウスポインターの形状を変更するサンプルプログラム

いつも忘れるので記録

コードの記述としては以下の用になる。

11を指定しているので、待ち状態(砂時計とかぐるぐる回る)ポインタとなる。

Screen.MousePointer = 11

サンプルプログラム。

Sub Change_MousePointer()

Screen.MousePointer = 11
MsgBox "砂時計(実行中)"

Screen.MousePointer = 3
MsgBox "テキスト選択"

End Sub

形状ごとの設定値は以下のとおり。

以上、ほんとによく忘れるので覚書。