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%，它将应用于所有工作表

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.Selectand Next wsthat 无法正常工作，而是更改为ws.Activate并Next设置所有工作表的缩放比例。作为可选，ScreenUpdating可以为具有大量工作表的工作簿禁用。

Answer 3

Option Explicit

Sub FixSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        ws.UsedRange.Select
        ActiveWindow.Zoom = True 'Zoom sur la sélection
        ActiveCell.Select
    Next ws
End Sub