시트의 텍스트/개체를 기반으로 확대/축소 수준을 변경하는 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 코드를 찾을 수 있었지만 좀 더 유연하고 시트에 포함된 내용에 따라 확대/축소를 변경할 수 있는 코드를 작성하는 데 도움이 필요합니다.

감사합니다!