excel - 定義されたズーム レベルですべての 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% に設定でき、すべてのワークシートに適用されます。