ユーザーフォーム

こんな感じでユーザーフォームを作る。「置換」ボタンがCommandBotton1、「閉じる」ボタンがCommandBotton2。

コード

コードはこんな感じ。

Private Sub CommandButton1_Click()
    Dim xWst As Worksheet
    Dim shps As Shape
    Dim xFindStrs As String
    Dim xReplaces As String
    Dim xValues As String
    
    xFindStrs = Me.TextBox1.Text
    xReplaces = Me.TextBox2.Text
    Set xWst = Application.ActiveSheet
    On Error Resume Next
    For Each shps In xWst.Shapes
        xValues = shps.TextFrame.Characters.Text
        shps.TextFrame.Characters.Text = VBA.Replace(xValues, xFindStrs, xReplaces, 1)
    Next
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

ユーザーフォームの呼び出し

標準モジュールでこう。あとはこいつをキーボードショートカットで呼び出せるようにする。

Sub TextBoxReplace()
    UserForm1.Show
End Sub