VBAのIE制御

前回は、WindowsコレクションのVisibleプロパティを利用してワークブックの表示・非表示について解説しました。ユーザーに見せたくない場合などで利用されること多いです。今回は、ワークブックを拡大・縮小表示にする方法について解説します。

目次

• はじめに
• 利用するプロパティ・関数について
  • Zoomプロパティ
  • MsgBox関数
• ワークブックを拡大・縮小表示するサンプルコード
  • 実行結果
  • 解説
• まとめ
• エクセルVBAのウィンドウ操作一覧

はじめに

こちらでは、Zoomプロパティを利用してワークブックの拡大・縮小表示を設定する方法について解説します。

利用するプロパティ・関数について

• Zoomプロパティ
• MsgBox関数

Zoomプロパティとは

WindowsコレクションのZoomプロパティはワークブックを拡大・縮小表示を設定します。

MsgBox関数とは

MsgBox関数はダイアログボックスにメッセージとボタンを表示し、どのボタンが押されたかを示す整数型の数値を返します。

ワークブックを拡大・縮小表示するサンプルコード

今回のVBAコードはワークブックを拡大・縮小表示するマクロになります。

Sub sample()

    Windows("Book1").Zoom = 150
    
    MsgBox "現在、150%サイズで表示しています。"

    Windows("Book1").Zoom = True
    
    MsgBox "任意のセル選択した範囲に適したサイズで表示しています"

    Windows("Book1").Zoom = False
    
    MsgBox "現在、通常サイズ(100％)で表示しています。"
    
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

Zoom = 150

Zoom = True

Zoom = False

解説

まず、サンプルコードを実行する前に任意で複数のセルを選択してください。処理中に選択した範囲で最適なサイズへ設定できるかを確認します。

Sub sample()

    Windows("Book1").Zoom = 150
    
    MsgBox "現在、150%サイズで表示しています。"

※ドラッグ(スワイプ)すると全体を確認できます。

sampleプロシージャのSubステートメントは引数の設定なしです。WindowsコレクションのZoomプロパティに150を設定しています。Zoomプロパティの単位は「%(パーセント)」ですので150%で表示されます。
MsgBox関数は、処理を一旦停止するために設けていますので、ワークブックが150%に表示されているかを確認してから次の処理へ移動しましょう。

    Windows("Book1").Zoom = True
    
    MsgBox "任意のセル選択した範囲に適したサイズで表示しています"

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは、WindowsコレクションのZoomプロパティにTrueを設定しています。これは実行前に任意のセルを指定した範囲で最適なサイズで表示されます。
最適な範囲で表示されているか確認してから次の処理へ移動しましょう。

    Windows("Book1").Zoom = False
    
    MsgBox "現在、通常サイズ(100％)で表示しています。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

こちらでは、WindowsコレクションのZoomプロパティにFalseを設定しています。こちらは通常サイズ(100％)で表示されます。
そして、最後はEndステートメントを利用してsampleプロシージャを終了させます。

尚、Zoomプロパティの対象オブジェクトはWindowオブジェクトですので、ワークシートオブジェクトなどで利用するとエラーになります。よく間違える方が多いので注意しましょう。

まとめ

今回は、WindowsコレクションのZoomプロパティを利用してワークブックの拡大・縮小について解説しました。次回は、エクセルVBAでExcelのウィンドウを分割する方法について解説します。

エクセルVBAのウィンドウ操作一覧

• Excelウィンドウの表示サイズを設定する
• Excelウィンドウを全画面表示にする
• Excelウィンドウの表示位置を設定する
• ワークブックの表示サイズを指定する
• ブックウィンドウ表示サイズの最大値を取得する
• ワークブックの表示位置を指定する
• ワークブックを整列する
• ワークブックを表示・非表示にする
• ワークブックを拡大・縮小表示する
• ウィンドウを分割する
• ウィンドウ枠を固定する