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