ワードアート内の文字を一気に置換したい エクセル

質問

エクセルですが、
図形（ワードアート）は、「Rectangle 」と名前がついています。

そもそもこの図形がワードアートかどうかも分からないのですが、
その図形にすべて「6月」と入っていて、それを一気に「７月」に置換したいです。

その図形は２０個くらいあります。
CTRL+Fでの置換では図形の中の文字まで置換できませんでした。

回答No.2

tsubuyuki · ベストアンサー

考え方は同様ですが、
シートにワードアート以外の図形が有って、それにも「置き換えたい文字が含まれる」時に
ワードアートだけを置換対象にする例です。

Sub Sample()
Dim myShape As Object
Dim myText As String
　　　　For Each myShape In ActiveSheet.Shapes
　　　　　　　　myShape.Select
　　　　　　　　With Selection.ShapeRange
　　　　　　　　　　　　If .Type = 1 Then
　　　　　　　　　　　　　　　　.TextEffect.Text = Replace(.TextEffect.Text, "６月", "７月")
　　　　　　　　　　　　End If
　　　　　　　　End With
　　　　Next
End Sub

その他の補足事項（ワードの件・全角／半角の件）に関しては同文です。
特に「全角／半角」は区別しておかないと後でもう少し複雑な処理をする時に困りますよ。

お礼

ありがとうございました。