Excel VBA：シートの表示倍率（パーセント）の変更方法｜Zoomプロパティの使い方

シートをズームイン・ズームアウトするVBAを掲載しています。

Excel VBAでシートの表示倍率を変更するには、Zoomプロパティを使います。
値は10～400％の範囲で設定します。
ここではズームインとズームアウトのコマンドボタンを配置し、クリックイベントにVBAを記述します。
表示倍率の変更は20％にしていますが、自由に変更してください。
関連する「印刷プレビューの表示倍率を設定」も掲載していますので、参考にしてください。

Zoomプロパティで表示倍率を変更するVBA

実行Excelシート画面

ズームイン実行画面

表示倍率が高くなり、大きく表示されています。

ズームアウト実行画面

表示倍率が低くなり、小さく表示されています。

Excel VBA実行コード

ボタン1をクリックすると現在の表示倍率にプラス20％し、ズームインします。

ボタン2をクリックすると現在の表示倍率をマイナス20％し、ズームアウトします。

Option Explicit

Private lz As Long

'ZOOM IN
Sub ボタン1_Click()
    If lz = 0 Then
        lz = 100
    End If

    lz = lz + 20
    ActiveWindow.Zoom = lz
End Sub

'ZOOM OUT
Sub ボタン2_Click()
    If lz = 0 Then
        lz = 100
    End If

    lz = lz - 20
    If lz < 20 Then
        Beep
        lz = 20
    End If
    ActiveWindow.Zoom = lz
End Sub

Homeに戻る > Excel シートのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します