マウスポインターの取得・変更【ExcelVBA】

Application.Cursorプロパティ→Microsoft Excelのマウス ポインターの形状を取得または設定

xlDefault → 標準のポインター

xlIBeam →  I 字型ポインター

xlNorthwestArrow → 矢印型ポインター

xlWait → 砂時計型ポインター

※使用時の注意点 マクロの実行が終了してもCursorプロパティは自動的にリセットされない

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Public Sub Sample()

'砂時計型ポインターに変更
Application.Cursor = xlWait

'xという変数を整数型で宣言し１を代入
Dim x As Integer
x = 1

'ｘが10より小さい間繰り返す
While x < 10

'今の時間から1秒後まで待機
Application.Wait Now + TimeSerial(0, 0, 1)

'ｘを1増やす
x = x + 1

Wend

'ポインターを標準に戻す
Application.Cursor = xlDefault

End Sub