VBA-Code, der die Zoomstufe basierend auf Text/Objekt im Blatt ändert?

Question

Alle,

Ich habe nach VBA-Code gesucht, der Folgendes erreicht:

1. Setzt den Zoom auf 80% für Arbeitsblätter, die ein bestimmtes Schlüsselwort enthalten
2. Setzt den Zoom auf 60% für Arbeitsblätter, die ein Bild enthalten
3. Setzt den Zoom für alle anderen Arbeitsblätter auf 85 %

Hier ist der Code, den ich versucht habe zu bearbeiten, um ihn dieser speziellen Herausforderung anzupassen, wobei meine Kommentare, die keinen Code betreffen, angeben, was ich ändern möchte:

 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

Für eine bestimmte Aufgabe in meinem Job bevorzugt der Manager bestimmte Blätter in einer Excel-Arbeitsmappe mit unterschiedlichen Zoomstufen, je nachdem, was das Blatt enthält. Ich konnte VBA-Code finden, der einen einheitlichen Zoom für alle Blätter einstellt, aber ich suche Hilfe beim Schreiben von Code, der etwas flexibler ist und es mir ermöglicht, den Zoom je nach Blattinhalt zu variieren.

Danke schön!