エクセルのマクロ

質問

１つのテキストボックスに1文字のみ表記されている状態で、沢山のテキストボックスが張り付いています。
そんな中で、「a」が表記されているテキストボックスのみ透過性70％で赤く塗りつぶすマクロを教えて下さい。
よろしくお願いします。

回答No.1

sakenomo · ベストアンサー

以下のマクロをお試しください。

ただし、テキストボックスの表記が"a"に見えても、"a "のようにスペースが入っていたりすると、塗りつぶせませんのでご注意を。

Sub test()
　For Each ob In ActiveSheet.Shapes
　　If Left(ob.Name, 8) = "Text Box" Then
　　　If ob.TextFrame.Characters.Text = "a" Then
　　　　With ob.Fill
　　　　　.Solid
　　　　　.Visible = msoTrue
　　　　　.ForeColor.SchemeColor = 10
　　　　　.Transparency = 0.7
　　　　End With
　　　End If
　　End If
　Next
End Sub

お礼

ご回答ありがとうございます。
できました。