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