図形内の文字列を検索する方法
やりたい事
図形に「いるかうさぎぺんぎんしゃち」の文字が入力されているものから検索した文字列が含まれているか確認する方法を解説します。
「うさぎ」という文字列を検索した場合は、
ちゃんと見つかります。
図形内の文字列を検索するサンプルコード
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
コメント