VBAでマウスポインターの形を変える方法



VBAでマウスポインターの形を変える方法

VBAに限らずPCを使用しているとマウスのポインターの形が変わることはありますよね?

処理中の場合は砂時計やTextBoxの上に来た場合は【I】のようなものだったり、今回はその制御をVBAで変更しようと思います(^^)/

マウスポインターを変える方法

マウスポインターを変更するには【Applicationオブジェクト】の【Cursorプロパティ】を使用します

定数、数値、説明に関しては下記の表をご覧ください。

Excel以外のウィンドウでは適用されません。
マウスポインタの形状はリセットされません。処理終了後に【xlDefault】に戻すようにしましょう。

定数数値説明
xlDefault-4143標準のマウスポインタ
xlNorthwestArrow1矢印型のマウスポインタ
xlWait2待機状態(青い◎)・砂時計型のマウスポインタ
xlIBeam3I 字型のマウスポインタ

サンプルコード

下記のコードは繰り返し処理中にポインターを待機状態にして、処理が終了したときにデフォルトに戻すというコードです。

 

ファイルやコードの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterフォロー

 

ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

 



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

ABOUTこの記事をかいた人

あることがキッカケでVBAを独学で勉強している、非IT企業の会社員。 今はVBAで出来ることを模索しながら別の開発言語の取得、基本情報技術者試験合格が目標