画面の表示倍率を設定する（選択範囲に合わせる場合）
A1:F20が収まる倍率へ表示を調整します。
実行前に確認
- 画面サイズによって倍率が変わります。印刷倍率は変わりません。
1サンプルコード
Sub Sample3037()
ThisWorkbook.Activate
ThisWorkbook.Worksheets("練習").Activate
ThisWorkbook.Worksheets("練習").Range("A1:F20").Select
ActiveWindow.Zoom = True
End Sub図で見る操作の流れ
イメージ図コードに沿った概念図です。実際の画面や実行結果ではありません。
マクロ：対象を表示
このブックの「練習」をアクティブにする
マクロ：範囲を選択
A1:F20を選択
マクロ：倍率を調整
選択範囲が収まるよう画面表示をズーム
画面サイズで倍率が変わります。印刷倍率は変更しません。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。シート名を「練習」に変更します。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3037内にカーソルを置いてF5で実行します。A1:F20が収まる倍率へ表示を調整します。