Excel VBA 表示倍率を変更する

ActiveWindow.Zoom

Zoomプロパティに数値を渡すことで、表示倍率を変更できる
100を渡せば、100%になる

Sub sample_Zoom()

    Dim ws As Worksheet
    Set ws = Worksheets("sheet1")

    ws.Select
    ActiveWindow.Zoom = 80

End Sub

Excelの仕様で、表示倍率によっては画像サイズを上手く取得できない場合がある
「一度、表示倍率を100%にした後に戻す」といった使い方でエラーを回避できる