【VBA】Excelの表示倍率を順番に切り替える（ズームサイクル）マクロ

2025年8月14日

はじめに

Excelでの作業中、細かいデータを見るときは拡大し、シート全体を俯瞰したいときは縮小する、というように、表示倍率（ズーム）の変更は頻繁に行う操作の一つです。

しかし、毎回右下のスライダーを操作したり、Ctrlキーを押しながらマウスホイールを転がすのは、少し手間がかかりますよね。もし、ボタン一つで「75% → 100% → 150% → 75%…」のように、決まった倍率を順番に切り替えられたら非常に便利です。

この記事では、実行するたびに設定した表示倍率を巡回（サイクル）する、便利なVBAマクロの作り方を分かりやすく解説します。

表示倍率を巡回させるVBAサンプルコード

ここで紹介するコードは、現在の表示倍率に応じて、あらかじめ設定しておいた倍率リストの中から次の倍率へ変更する、という処理を行います。

ここでは、75%, 100%, 125% の3つの倍率を順番に切り替えるマクロを作成します。

完成コード

' 表示倍率を 75% -> 100% -> 125% -> 75%... の順で切り替える
Sub CycleZoomLevel()

    '== 変数と設定を定義します ==
    Dim zoomOptions As Variant
    Dim currentZoom As Long
    Dim nextZoom As Long
    Dim i As Long
    
    ' 切り替えたい倍率のリスト（%）
    zoomOptions = Array(75, 100, 125)
    
    ' 現在の表示倍率を取得
    currentZoom = ActiveWindow.Zoom
    
    ' デフォルトの次の倍率を設定（リストの最初の値）
    nextZoom = zoomOptions(0)

    '== 現在の倍率がリストのどこにあるかを探し、次の倍率を決定します ==
    For i = LBound(zoomOptions) To UBound(zoomOptions)
        If currentZoom = zoomOptions(i) Then
            ' 現在の倍率がリストの最後でなければ、次の倍率を設定
            If i < UBound(zoomOptions) Then
                nextZoom = zoomOptions(i + 1)
            ' 現在の倍率がリストの最後なら、最初の倍率に戻す
            Else
                nextZoom = zoomOptions(LBound(zoomOptions))
            End If
            Exit For '次の倍率が決まったらループを抜ける
        End If
    Next i

    '== 表示倍率を変更します ==
    ActiveWindow.Zoom = nextZoom

End Sub

【使い方】