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

参考資料

Docs

関連記事

Excel VBA 複数の図形(オートシェイプ)内の文字列を検索する方法
複数の図形内の文字列を検索する方法 やりたい事 同じワークシート内に複数の図形がある場合にすべての図形の文字列を取り出す方法を解説します。 取り出した後にfindやInstrを使用して検索することが可能です。 今回の例では4つのそれ...
Excel VBA 複数の図形(オートシェイプ)内の文字列を一覧化してリンクを作成する方法
複数の図形(オートシェイプ)内の文字列を一覧化してリンクを作成する方法 やりたい事 「図形」シートにある複数の図形から情報を取得して 「図形リスト」シートに一覧として出力します。 マクロを実行した結果は以下のようになります。...

コメント

タイトルとURLをコピーしました