• 締切
  • 困ってます

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

  • 質問No.8978930
  • 閲覧数693
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0
エクセルのオートシェイプ内のテキストを一括置換したいと考えております。
フリーソフトやVBAを使用し、置換したところ、色まで変わってしまいます。
色は元のまま文字だけを置換したいのですが、そのようなことは可能でしょうか。

回答 (全1件)

  • 回答No.1

ベストアンサー率 44% (445/996)

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
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

ピックアップ

ページ先頭へ