Excel VBA 図形(オートシェイプ)内の文字列を検索する方法

図形内の文字列を検索する方法

図形内の文字列を検索する方法

やりたい事

図形に「いるかうさぎぺんぎんしゃち」の文字が入力されているものから検索した文字列が含まれているか確認する方法を解説します。

「うさぎ」という文字列を検索した場合は、

ちゃんと見つかります。

図形内の文字列を検索するサンプルコード

Sub searchShapeText()
    Dim searchText As String
    Dim shapeText As String
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 30, 100, 100).Name = "四角"
    ActiveSheet.Shapes("四角").TextFrame.Characters.text = "いるかうさぎぺんぎんしゃち"
    
    searchText = InputBox("検索したい文字列を入力してください")
    shapeText = ActiveSheet.Shapes("四角").TextFrame.Characters.text
    
    If InStr(shapeText, searchText) > 0 Then
        MsgBox searchText & "がみつかりました。"
    Else
        MsgBox searchText & "は見つかりませんでした"
    End If
    
End Sub