将所有Excel工作表设置为定义的缩放级别

Question

我在一个Excel工作簿（文件）中有二十多张纸。是否有一些代码片段或我可以应用/使用的命令，以便可以将所有图纸重置为例如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％，它将应用于所有工作表

Answer 2

Sub SetZoom()

Dim ws As Worksheet
Application.ScreenUpdating = False    'Optional
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ActiveWindow.Zoom = 85
Next
Application.ScreenUpdating = True

End Sub

此代码与上面的代码相似，但是在运行宏之前不必在工作簿中选择所有工作表。除非选择工作表，否则不要使用无法正常工作的ws.Select和Next ws，而是改为ws.Activate和Next以逐张设置缩放比例。作为可选选项，可以为包含大量图纸的工作簿禁用ScreenUpdating。