定義されたズームレベルですべてのExcelシートを設定する

Question

Excelブック（ファイル）に20枚以上のシートがあります。すべてのシートをリセットして85％のズームレベルにできるように、適用/使用できるコードスニペットまたはコマンドはありますか？

Answer 1

Sub SetZoom()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Select
        ActiveWindow.Zoom = 85 //change as per your requirements
    Next ws
End Sub

ところで、タブを使用してワークブック内のすべてのワークシートを選択するだけで、ズームを85％に設定でき、すべてのワークシートに適用されます