Excelのワークシート上にある図形にはテキストを追加することができます。
ここで紹介するのは図形にセットされているテキストを操作するマクロです。
テキストをリストアップ
アクティブシートにあるすべての図形のテキストを取得しメッセージとして表示します。
Sub 図形のテキストをリストアップする()
mylist = ""
For Each myshape In ActiveSheet.Shapes
mylist = mylist + myshape.TextFrame2.TextRange.Text
mylist = mylist + vbCrLf
Next
MsgBox mylist
End Sub
mylist = ""
For Each myshape In ActiveSheet.Shapes
mylist = mylist + myshape.TextFrame2.TextRange.Text
mylist = mylist + vbCrLf
Next
MsgBox mylist
End Sub
テキストを検索して該当の図形をぬりつぶす
検索文字列を指定し、アクティブシート上の図形をすべて検索します。
一致した図形を黒く塗りつぶします。
Sub 図形のテキストを検索して塗りつぶす()
mytext = "abc" '検索文字列
For Each myshape In ActiveSheet.Shapes
thistext = myshape.TextFrame2.TextRange.Text
If mytext = thistext Then
myshape.Fill.ForeColor.RGB = RGB(0, 0, 0) '黒
End If
Next
End Sub
mytext = "abc" '検索文字列
For Each myshape In ActiveSheet.Shapes
thistext = myshape.TextFrame2.TextRange.Text
If mytext = thistext Then
myshape.Fill.ForeColor.RGB = RGB(0, 0, 0) '黒
End If
Next
End Sub
コメント