教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA その他操作】マウスポインタの形状を変更するにはどうすればいいの?教えて!

f:id:m_kbou:20200418085801p:plain

マウスポインタの形状を変更する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

Application.Cursor =[ポインタ形状]

[説明]:

マウスポインタの形状を変更するには「Application.Cursor =[ポインタ形状]」と記述します。[ポインタ形状]には変更するポインタの形状を指定します。[ポインタ形状]は以下のいずれかの形状を指定します。内容を纏めると、「[ポインタ形状]で指定した形状にマウスポインタを変更して下さい。」との意味になります。

●標準ポインタ・・・xlDefault
●砂時計型ポインタ・・・xlWait
●矢印型ポインタ・・・xlNorthwestArrow
●I字型ポインタ・・・xlIBeam 

[記述例]: 

Application.Cursor = xlDefault
Application.Cursor = xlWait
Application.Cursor = xlNorthwestArrow
Application.Cursor = xlIBeam 

 

使い方

使い方について具体的に説明します。

マウスポインタを砂時計形状に変更する方法

マウスポインタを砂時計形状に変更する方法について説明します。

[プログラミング例]:

Sub サンプル()
  Application.Cursor = xlWait
End Sub

内容は、「マウスポインタを砂時計の形状に変更して下さい。」との意味になります。

f:id:m_kbou:20210218173615p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210306074153p:plain

②マウスポインタが砂時計の形状に変更されます。

f:id:m_kbou:20200309082018p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

マウスポインタを砂時計形状に変更する方法についての説明は以上です。

 

マウスポインタを矢印形状に変更する方法

マウスポインタを矢印形状に変更する方法について説明します。

[プログラミング例]:

Sub サンプル()
  Application.Cursor = xlNorthwestArrow
End Sub

内容は、「マウスポインタを矢印の形状に変更して下さい。」との意味になります。

f:id:m_kbou:20210218173802p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210306074224p:plain

②マウスポインタが矢印の形状に変更されます。

f:id:m_kbou:20200309082042p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

マウスポインタを矢印形状に変更する方法についての説明は以上です。

 

マウスポインタをI字形状に変更する方法

マウスポインタをI字形状に変更する方法について説明します。

[プログラミング例]:

Sub サンプル()
  Application.Cursor = xlIBeam
End Sub

内容は、「マウスポインタをI字の形状に変更して下さい。」との意味になります。

f:id:m_kbou:20210218173907p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210306074247p:plain

②マウスポインタがI字の形状に変更されます。

f:id:m_kbou:20200309082056p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

マウスポインタをI字形状に変更する方法についての説明は以上です。

 

マウスポインタを標準形状に変更する方法

マウスポインタを標準形状に変更する方法について説明します。

[プログラミング例]:

Sub サンプル()
  Application.Cursor = xlDefault
End Sub

内容は、「マウスポインタを標準の形状に変更して下さい。」との意味になります。

f:id:m_kbou:20210218174012p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。<実行>ボタンをクリックします。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210306074312p:plain

②マウスポインタが標準の形状に変更されます。

f:id:m_kbou:20200309082109p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

マウスポインタを標準形状に変更する方法についての説明は以上です。

 

おわりに

今回はマウスポインタの形状を変更する方法について説明しました。ポインタの形状を変更した場合、最後に標準形状に戻さない限りExcelを閉じるまでは変更した形状を維持します。その点は注意が必要です。