根據工作表中的文字/物件更改縮放等級的 VBA 程式碼？

Question

全部，

我一直在尋找實現以下目標的 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 程式碼，但我正在尋求協助編寫更靈活的程式碼，並允許我根據工作表包含的內容來更改縮放。

謝謝你！