Код 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, который устанавливает одинаковый масштаб для всех листов, но я ищу помощь в написании кода, который был бы немного более гибким и позволял бы мне изменять масштаб в зависимости от того, что содержит лист.

Спасибо!