教えて!ExcelVBA!

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

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

       f:id:m_kbou:20200418085801p:plain

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

 

【目次】

 

構文

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

=======================================================================

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

=======================================================================

[説明]:

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

f:id:m_kbou:20200320141102p:plain

[記述例]: 

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

 

使い方

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

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

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

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()

    Application.Cursor = xlWait
   
End Sub

-------------------------------------------------

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

[実行例]:

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

f:id:m_kbou:20200309082018p:plain

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

 

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

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

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()

    Application.Cursor = xlNorthwestArrow
   
End Sub

-------------------------------------------------

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

[実行例]:

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

f:id:m_kbou:20200309082042p:plain

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

 

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

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

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()

    Application.Cursor = xlIBeam
   
End Sub

-------------------------------------------------

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

[実行例]:

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

f:id:m_kbou:20200309082056p:plain

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

 

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

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

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()

    Application.Cursor = xlDefault
       
End Sub

-------------------------------------------------

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

[実行例]:

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

f:id:m_kbou:20200309082109p:plain

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

 

おわりに

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