Excel(エクセル)で図形(オブジェクト)内の文字列をVBAで検索～グループ化してても検索可～

中山テック 代表の中山です。

先日のExcel検索・置換についてのブログでオブジェクト（図形・オートシェイプ）が検索できないとお話しました。

VBAというプログラミングで図形を取得⇒テキスト検索することが可能であります。

ツールとして作成したので、どのように使用するか、何に気を付けてプログラミングしたかお話したいと思います。

画像に記載した通りです。

パス、検索ワード、スタートボタン実行で検索が始まります。

※パスの一番後ろに「半角￥」を付与しないとエラーになります！注意！

• Excel関連記事(記事はまだまだ続きます)

• Excel(エクセル)で罫線を引くコツ～太さや上下左右に引く場合は？～
• セルの中は何文字？Excel(エクセル)のとある関数を使って文字数を計算する方法～警告文も作ろう！～
• Javaのget/setメンバーやメソッドをVBAで作成する～欲しい方はgithubから～
• セルコピペ後指定セルがズレる理由と修正方法【Excel】
• タイムカードはExcel(エクセル)で超カンタンに作れます！～労働時間管理～
• Excel(エクセル)でリンクを貼る方法～ハイパーリンクの活用法～
• Excel(エクセル)の検索と置換を使いこなす～ただし図形内文字はダメ～

ファイル取得、結果の見出し

Private Sub CommandButton1_Click()
    Dim ws As Worksheet         ' ワークシートループ用
    Dim counter As Long         ' 検索結果表示用カウンター
    Dim searchWord As String    ' 検索ワード
    Dim filePath As String      ' ファイルパス
    Dim fileName As String  ' ファイル名
    
    ' ファイル取得⇒①
    filePath = Range("C2")                      ' パス
    fileName = Dir(filePath & "*.xlsx")     ' ファイル一覧
    
    ' 見出し付与⇒②
    counter = 0
    Cells(counter + 6, 1) = "ファイル名"
    Cells(counter + 6, 2) = "シート名"
    Cells(counter + 6, 3) = "場所"
    Cells(counter + 6, 4) = "検索結果テキスト"

検索結果初期化、検索ワード取得

    ' 結果初期化処理⇒①

    For i = 7 To Cells(Rows.Count, 1).End(xlDown).Row
        If Cells(i, 1) = "" Then
            Exit For
        End If
        Cells(i, 1) = ""
        Cells(i, 2) = ""
        Cells(i, 3) = ""
        Cells(i, 4) = ""
    Next i
    
    ' 検索ワード取得⇒②

    searchWord = Range("C3").Text

グループ化検索、単一オブジェクトの検索処理

    ' パスからファイル取得
    Do While fileName <> "" ⇒①

        ' ファイルオープン
        Workbooks.Open filePath & fileName

            ' 全ワークシート検索
            For Each ws In Worksheets⇒②
                ' 1つ目のワークシートを検索
                For i = 1 To ws.Shapes.Count
                    ' オートシェイプを取得
                    With ws.Shapes(i)⇒③
                        ' グループがあるか検索
                        If .Type = msoGroup Then
                            ' グループ内オブジェクトテキスト検索
                            ' 1:グループオブジェクト、2:ファイル名、3:シート名、4:検索ワード、5：カウント
                            counter = childShapeLoop(ws.Shapes(i), fileName, ws.Name, searchWord, counter)⇒④

                        ' テキストがあるか検索
                        ElseIf .TextFrame2.HasText Then⇒⑤
                            ' 検索ワードと一致するか検索
                            If InStr(.TextFrame2.TextRange.Text, searchWord) Then⇒⑥
                                Cells(counter + 7, 1) = fileName
                                Cells(counter + 7, 2) = ws.Name
                                Cells(counter + 7, 3) = .TopLeftCell.Address
                                Cells(counter + 7, 4) = .TextFrame2.TextRange.Text
                                counter = counter + 1
                            End If
                        End If
                    End With
                Next i
            Next
        ' ファイルクローズ
        Workbooks(fileName).Close
        ' 次のファイルへ
        fileName = Dir()
    Loop
    MsgBox "おわり！"
End Sub

グループ化された画像の中のオブジェクト、テキストを検索（2023/7/27追記）

Function childShapeLoop(motoShape As Shape, fileName As String, wsName As String, searchWord As String, counter As Long) As Long

   ' ある場合はオブジェクト1つ1つを解析
   For Each gShape In motoShape.GroupItems
       ' オブジェクトがさらなるグループかどうか判定
       If gShape.Type = msoGroup Then
           childShapeLoop = childShapeLoop(motoShape, fileName, wsName, searchWord, counter)⇒①

       ' オブジェクトにテキストがあるか検索
       ElseIf gShape.TextFrame2.HasText Then
           ' 検索ワードと一致するか検索
           If InStr(gShape.TextFrame2.TextRange.Text, searchWord) Then⇒②
               Cells(counter + 7, 1) = fileName
               Cells(counter + 7, 2) = wsName
               Cells(counter + 7, 3) = gShape.TopLeftCell.Address
               Cells(counter + 7, 4) = gShape.TextFrame2.TextRange.Text
               counter = counter + 1
           End If
        End If
    Next

    childShapeLoop = counter
End Function

グループ化も行けるようになりました（2023/7/27 追記）

上記は解除した状態のグループ画像です。

例えば「こだわりは」で検索してみましょう。

左下の吹き出しが結果として出る想定です。

グループ化したオブジェクトはエラーが出る

グループ化したオブジェクトも検索したい

保護ビュー、マクロエラーが出た場合

さて、オブジェクトを目視で確認するのも良いですが数が少ない、または文字数が少ない場合です。

稀にオブジェクト内に長い注記を入れることもありますが、その場合は機械的に確認することが重要です。

デジタルのことはデジタルに任せるのがベストが信条な代表はツール作りは非常に重要と思ってます。

是非ツールを使用して頂き、役に立ったと思えたなら幸いです。