マウスポインターの取得・変更【ExcelVBA】
Application.Cursorプロパティ→Microsoft Excelのマウス ポインターの形状を取得または設定
xlDefault → 標準のポインター
xlIBeam → I 字型ポインター
xlNorthwestArrow → 矢印型ポインター
xlWait → 砂時計型ポインター
※使用時の注意点 マクロの実行が終了してもCursorプロパティは自動的にリセットされない
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
実際に使用したサンプルコード
Option Explicit
Public Sub Sample()
'砂時計型ポインターに変更
Application.Cursor = xlWait
'xという変数を整数型で宣言し1を代入
Dim x As Integer
x = 1
'xが10より小さい間繰り返す
While x < 10
'今の時間から1秒後まで待機
Application.Wait Now + TimeSerial(0, 0, 1)
'xを1増やす
x = x + 1
Wend
'ポインターを標準に戻す
Application.Cursor = xlDefault
End Sub