アクティブなシートに形状または画像が存在するかどうかを確認するにはどうすればよいですか？

たとえば、アクティブなワークシートにはすでに数十の図形や画像が追加されており、特定の図形や画像がアクティブなシートに存在するかどうかを確認したい場合、図形や画像を確認せずにこのジョブをすばやく処理するにはどうすればよいですか。画像をXNUMX枚ずつ？ Excelでは、組み込み関数は役に立ちませんが、この記事では、アクティブなシートに図形または画像が存在するかどうかをすばやく見つけるためのVBAコードを紹介します。

アクティブなシートに図形または画像が存在するかどうかを確認します

アクティブなシートに図形または画像が存在するかどうかを確認します

以下のマクロコードを適用して、アクティブなシートに特定の画像が存在するかどうかを確認してください。

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール 以下のコードをスクリプトに貼り付けます。

VBA：形状または画像が存在するかどうかを確認します

Sub CheckImage（） 'UpdatebyExtendoffice20170927 Dim xChar As Picture Dim xFlag As Boolean Dim xCharName As String On Error Resume Next Application.ScreenUpdating = False xCharName = "cat" xFlag = False For Each xChar In ActiveSheet.Pictures Debug.Print xChar.Name If xChar.Name = xCharName Then MsgBox "画像はアクティブシート上にあります"、vbInformation、 "KuTools For Excel" xFlag = True Exit For End If Next If Not xFlag Then MsgBox "画像はアクティブシート上にありません"、vbInformation、 "KuTools For Excel" End Application.ScreenUpdating = True EndSubの場合

3。 押す F5 コードを実行するために、画像がアクティブなシートに存在するかどうかを通知するダイアログが表示されます。

先端：マクロコードでは、で画像名を変更できます xCharName = "cat" あなたの必要性を満たすために。

関連記事：

• Excelで範囲にいくつかの値が含まれているかどうかをすばやく確認するにはどうすればよいですか？