以定义的缩放级别设置所有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%,它将适用于所有工作表