☰

根据工作表中的文本/对象改变缩放级别的 VBA 代码？

tag-icon • tag-icon microsoft-excel vba zoom
根据工作表中的文本/对象改变缩放级别的 VBA 代码？

全部，

我一直在寻找实现以下功能的 VBA 代码：

  1. 将包含特定关键词的工作表缩放至 80%
  2. 将包含图片的工作表的缩放比例设置为 60%
  3. 将所有其他工作表的缩放比例设置为 85%

下面是我为了应对这一特殊挑战而尝试操作的代码，其中的非代码注释表明了我想要更改的内容：

 Sub ZoomAll() 
   Dim ws As Worksheet  
    Application.ScreenUpdating = False 
    For Each ws *with a picture* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 60
    Next
    For Each ws *that contains X text* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 80
    Next
    For Each ws *that contains Y text* In Worksheets 
        ws.Activate
        ActiveWindow.Zoom = 85
    Next
    Application.ScreenUpdating = True
    End Sub

对于我工作中的某个交付成果，经理希望 Excel 工作簿中的某些工作表根据工作表包含的内容具有不同的缩放级别。我已经能够找到在所有工作表上设置统一缩放的 VBA 代码，但我正在寻找帮助来编写更灵活的代码，并允许我根据工作表包含的内容改变缩放级别。

谢谢你！

相关内容