webdevqa.jp.net

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

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

26
Regmi
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%に設定でき、すべてのワークシートに適用されます

50
Alex P