以定义的缩放级别设置所有Excel工作表 [英] Setting all Excel sheets at a defined zoom level

问题描述

我在Excel工作簿（文件）中有超过20张表。是否有一些代码段或可以应用/使用的命令，以便所有的表都可以重置为让我们说85％缩放级别？

解决方案

  Sub SetZoom（）
 Dim ws As Worksheet 
 
对于工作表中的每个ws 
 ws.Select 
 ActiveWindow。缩放= 85 //根据您的要求更改
下一个ws 
 End Sub 
  

BTW，如果您只需使用选项卡选择工作簿中的所有工作表，则可以将缩放设置为85％，并将其应用于所有工作表

I have more than twenty sheets in an Excel workbook (file). Is there some code snippet or a command I could apply/use so that all sheets could be reset to let's say 85% zoom level?

解决方案

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

BTW, if you simply select all worksheets in your workbook using the tabs you can then set the zoom to 85% and it will apply to all worksheets

这篇关于以定义的缩放级别设置所有Excel工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！