オートシェイプ内のテキスト置換

質問

エクセルのオートシェイプ内のテキストを一括置換したいと考えております。
フリーソフトやVBAを使用し、置換したところ、色まで変わってしまいます。
色は元のまま文字だけを置換したいのですが、そのようなことは可能でしょうか。

回答No.1

neKo_quatre

VBAで置換してみたところ、普通に文字だけ置換されましたが…。

Sub rep_abc_xxx()
　Dim shp As Shape
　Dim tx As String
　For Each shp In ActiveSheet.Shapes
　　tx = shp.TextFrame2.TextRange.Characters.Text
　　tx = Replace(tx, "abc", "xxx")
　　shp.TextFrame2.TextRange.Characters.Text = tx
　Next
End Sub