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

我有超过二十张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 

顺便说一句，如果您只需使用选项卡在工作簿中select所有工作表，则可以将缩放比例设置为85％，并将应用于所有工作表