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

Question

总而言之，

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

1. 对于包含特定关键字的工作表的缩放为80％
2. ，该工作表将包含图片设置的工作
3. 表Zoom设置为 60％这里的关键词

是我一直试图操纵以适应这一特殊挑战的代码，我的非代码注释指示我想更改什么：

Sub ZoomSheets() 
   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中的某些床单工作簿的不同缩放水平取决于纸张的包含的内容：如果有图片，则为60％，如果在顶部说“ Y”，则为85％，如果顶部为“ X”，则为80％。我已经能够找到在所有表上设置均匀缩放的VBA代码，但是我正在寻找帮助编写更灵活的代码，并可以根据表所包含的内容来更改变焦。

谢谢你！

Answer 1

Sub ZoomSheets()

    Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim checkRng As String: checkRng = "A1:ZZ999"
    Dim picture As Variant
    For Each ws In ThisWorkbook.Worksheets
    
        With ws.Range(checkRng)
            If Not .Find("epic", LookIn:=xlValues) Is Nothing Then
                ws.Activate
                ActiveWindow.Zoom = 90
            ElseIf Not .Find("poggers", LookIn:=xlValues) Is Nothing Then
                ws.Activate
                ActiveWindow.Zoom = 80
            Else
                For Each picture In ws.Pictures
                    If picture.Name Like "*Picture*" Then
                        ws.Activate
                        ActiveWindow.Zoom = 70
                        Exit For
                    End If
                Next
            End If
        End With
    
    Next ws

    Application.ScreenUpdating = True

End Sub