シート内のテキスト/オブジェクトに基づいてズーム レベルを変更する 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 コードを見つけることができましたが、もう少し柔軟で、シートに含まれる内容に応じてズームを変更できるコードの作成方法について支援を求めています。

ありがとう！