ExcelのVBAを使用してマウスポインターの形を変更するサンプルプログラムを覚書。
思い出すのに少し時間がかかったから覚書。
Excelのマウスの形状をVBAで変更するコード
Excelのマウスの形状をVBAで変更するコードは以下の1行でOKです。
例えば、プログラム実行中に待ち状態を表す砂時計のポインタに変更する場合は、こんな感じ。
Application.Cursor = xlWait
VBAで指定できるマウスポインターの形状について
指定できる形状はデフォルトの形状を合わせると4つ。
| 指定する値 | マウスポインターの形状 |
|---|---|
| xlWait | 待ち状態、砂時計 |
| xlIBeam | 文字入力時の""I""形状、アイビーム |
| xlNorthwestArrow | 北西向きの矢印 |
| xlDefault | デフォルトの形状 |
マウスポインターの形状を変更するサンプルプログラム
以下、約5秒ごとにマウスの形状が上記4つに変わるサンプルプログラム。
Sub MouseTEST()
Dim temp
Application.Cursor = xlWait
temp = Timer
Do Until Timer - temp >= 5
Loop
Application.Cursor = xlIBeam
temp = Timer
Do Until Timer - temp >= 5
Loop
Application.Cursor = xlNorthwestArrow
temp = Timer
Do Until Timer - temp >= 5
Loop
'元の形状に戻す
Application.Cursor = xlDefault
End Sub
Accessの場合は、Screenオブジェクトなんだけどなぁ...Officeアプリケーションなんだから統一してくれればいいのになぁ。
コメント