教えて!ExcelVBA!

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

【ExcelVBA その他操作】マウスのホイールをズーム機能に設定(RollZoom)するにはどうすればいいの?教えて!

        f:id:m_kbou:20200317113747p:plain

マウスホイールをズーム機能に設定する方法について説明します。

 

【目次】

 

構文

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

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

Application.RollZoom = True
Application.RollZoom = False

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

[説明]:

マウスホイールをズーム機能に設定するには「Application.RollZoom = True」と記述します。また、ズーム機能を元に戻す場合には「Application.RollZoom = False」と記述します。内容を纏めると、「マウスホイールをズーム機能に設定して下さい。又は、元に戻して下さい。」との意味になります。

 

使い方

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

マウスホイールをズーム機能に設定する方法

マウスホイールをズーム機能に設定する方法について説明します。

[記述例]:

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

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

Sub サンプル()

   Application.RollZoom = True

End Sub

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

「マウスホイールをズーム機能に設定して下さい」との意味になります。

[実行例]:

(実行前)

※通常の大きさで画面が表示されている。

f:id:m_kbou:20200317113804p:plain

(実行後)

※マウスホイールを動かす事で、画面サイズが大きくなったり小さくなったりする。

f:id:m_kbou:20200317113817p:plain

f:id:m_kbou:20200317114242p:plain

マウスホイールをズーム機能に設定する方法についての説明は以上です。

 

マウスホイールのズーム機能を元に戻す方法

マウスホイールのズーム機能を元に戻す方法について説明します。

[記述例]:

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

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

Sub サンプル()

   Application.RollZoom = False

End Sub

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

「マウスホイールのズーム機能を元に戻して下さい」との意味になります。

[実行例]:

(実行前)

※通常の大きさで画面が表示されている。

f:id:m_kbou:20200317113804p:plain

(実行後)

※マウスホイールを動かしても画面サイズは変わらない。(通常通りスクロール機能に戻る) 

f:id:m_kbou:20200317113804p:plain

マウスホイールのズーム機能を元に戻す方法についての説明は以上です。 

 

おわりに

今回はマウスホイールをズーム機能に設定する方法について説明しました。ホイールのズーム機能はブック内でのみ有効となります。注意して下さい。