Excel 関連情報 †
サンプルコード †
シート内のテキストボックスの文字列を置換するサンプル †
' メインプロシージャ
Sub Main()
ReplaceTextBox "aaa", "bbb" ' "aaa" を "bbb" に置換する。
End Sub
' テキストボックスの文字列の置換を行うプロシージャ
Sub ReplaceTextBox(ByVal strFind, ByVal strReplace)
' 複数シートに対して処理を行う
Dim sheet
For Each sheet In Worksheets
' 各オートシェイプに対して処理を行う
Dim shape
For Each shape In sheet.Shapes
' タイプがテキストボックスの場合にのみ置換処理を行う
If shape.Type = msoTextBox Then
Dim strOld
Dim strNew
' 現在のテキストボックスの文字列を取得
strOld = shape.TextFrame.Characters.Text
strNew = Replace(strOld, strFind, strReplace)
' 新しい文字列をテキストボックスにセット
shape.TextFrame.Characters.Text = strNew
End If
Next
Next
End Sub