VBA – ワークシートのズームイン・ズームアウト

ActiveWindow.Zoom

VBAを使うと、ワークシートの表示倍率を変更することができます。以下は、ActiveWindowの表示倍率を50%に変更するコードです。

ActiveWindow.Zoom = 50

すべてのワークシートの表示倍率を変更する

また、ワークブック内のすべてのワークシートをループして、標準的な表示倍率を設定することができます。次のマクロは、すべてのワークシートの表示倍率を50%に設定します。

Sub ZoomAll()

Dim ws As Worksheet
Application.ScreenUpdating = False

For Each ws In Worksheets
    ws.Activate
    ActiveWindow.Zoom = 50
Next

Application.ScreenUpdating = True

End Sub

拡大・縮小

そして最後に魔法のように大きくなるワークシートです。以下のマクロは、Sheet1の表示倍率を10%から200%まで、10%ずつ増加させながらループさせ、変更の間に1秒間の休止をした後、Sheet1を元の状態に戻します。

Sub ZoomZoom()

Dim x As Integer 'ループ用の変数
Dim OriginalZoom As Integer '元の表示倍率保存用の変数

Sheet1.Activate 'シート1を操作しよう

OriginalZoom = ActiveWindow.Zoom '現在の表示倍率を取得する

'表示倍率10〜200を10ずつループする
    For x = 1 To 20

        ActiveWindow.Zoom = x * 10
        Application.Wait Now + TimeValue("00:00:01")

    Next x

'元の表示倍率に戻す
ActiveWindow.Zoom = OriginalZoom

End Sub

<<VBAのサンプルに戻る