Excel : テキストボックス中のテキストの検索・置換

質問

Excelの図として貼り付けたテキストボックスにテキストが入力されていて、そのテキストボックスが数十個、シートに貼り付けられています。またそれが30シートくらいあります。

このたくさんのテキストボックスに入力されたテキストを複数のシートに渡って一括置換する方法はありませんでしょうか。

回答No.3

Wendy02

こんにちは。

#1の補足の、「残念ながら、マクロは使えません。」の意味が、マクロを使っていけないなら、諦めるしかありませんね。
それと、あまり、元に戻せないことを強調しているようなので、元に戻すオプションをつけてしまいました。

Const SW As Integer = 0 '順行 /0以外は、反転
は、簡単にいうと、=1 を入れれば、元に戻ります。

'-------------------------------------
'標準モジュールが適しています。

Sub ReplaceInTextBoxes()
Dim shp As Object
Const BEF As String = "abcdefg"　'検索後
Const AFT As String = "あいうえお"　'置換語

Const SW As Integer = 0 '順行 /0以外は、反転
Const TX As Integer = vbTextCompare '全半角区別なし
Const BIN As Integer = vbBinaryCompare　'全半角区別あり

Dim SWd As String
Dim RWd As String

If SW = 0 Then
　SWd = BEF: RWd = AFT
Else
　SWd = AFT: RWd = BEF
End If

　For Each shp In ActiveSheet.Shapes
　If shp.Type = msoTextBox Then
　　shp.DrawingObject.Text = _
　　Replace(shp.DrawingObject.Text, SWd, RWd, , , TX)　'全角半角区別なし
　End If
　Next
End Sub

お礼

誤解を招く表現で申し訳ございませんでした。
マクロを使っていけないということはありません。

元に戻すオプションまでつけて頂きありがとうございました。