Question

Excel VBA实现查找插入图形内的字符.

在Excel里边我插入了很多图形,做的网络设备的拓扑图. 在插入图形内有设备名,网段什么的.普通的ctrl+F查找不到插入图形内的文字. 请问大神怎样通过VBA实现这个功能?我在百度搜索的这一段是替换功能, 我想肯定有查找功能的.Sub Macro1()'' Macro1 Macro'' 快捷键: Ctrl+a' Dim sht As Worksheet Dim i As Integer Set sht = Sheets("1") For i = 1 To sht.Shapes.Count On Error Resume Next sht.Shapes(i).TextFrame.Characters.Text = Replace(sht.Shapes(i).TextFrame.Characters.Text, "123", "456") On Error GoTo 0 NextEnd Sub

Answer 1

你要 查找什么，找到后 怎么办，有没有后续动作？

追问

比如说我要查找"检测中心", 查找后高亮就可以了.不用后续动作

追答

Sub Macro1()
Dim sht As Worksheet
Dim i As Integer
Set sht = Sheets("1")
For i = 1 To sht.Shapes.Count
On Error Resume Next
 If sht.Shapes(i).TextFrame.Characters.Text Like "*检测中心*" Then sht.Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 0)
On Error GoTo 0
Next
End Sub

追问

大神  报错了咋回事?

追答

人家写的 工作表名字 是1
你改成你实际的工作表名字 比如 sheets("Sheet1")

追问

哦 可以了 谢谢大神 膜拜