Excel2013中替换文本框内的文本

1. 在工作表名上右键view code进入VBA编辑器

2. 进入菜单 view------->project explorer或Ctrl+R打开项目视图，可以在左边窗口中查看到各个工作表名。

3. 在项目视图中双击相应表名，在右边的编辑窗口中添加如下函数：

4. 点击菜单上的三角运行图标执行函数，看看对应表中的内容是否已全部替换？。

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Sub文本框中的文本替换()

  Dim tb As Object

  For Each tb In ActiveSheet.Shapes

    If tb.Type = msoTextBox Then

tb.DrawingObject.Caption = Replace(tb.DrawingObject.Caption, "查找内容", "替换内容")

    End If

  Next

End Sub