Excelの図形の中のテキストを操作するマクロ

Pocket

Excelのワークシート上にある図形にはテキストを追加することができます。
ここで紹介するのは図形にセットされているテキストを操作するマクロです。

テキストをリストアップ

アクティブシートにあるすべての図形のテキストを取得しメッセージとして表示します。

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

[ 2011年2月19日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報