Hi,

Using VBA, is there any way to locate the shape with specified text
inside in Excel?

thanks!

Sub DD()
Dim shp As Shape
Dim s As String
Dim TargetText As String
TargetText = "dog"
For Each shp In ActiveSheet.Shapes
On Error Resume Next
s = ""
s = shp.TextFrame.Characters.Text
On Error GoTo 0
If InStr(1, s, TargetText, vbTextCompare) Then
shp.Select
Exit For
End If
Next
End Sub

--
Regards,
Tom Ogilvy


"lvcha.gouqizi" wrote in message
ups.com...
Hi,

Using VBA, is there any way to locate the shape with specified text
inside in Excel?

thanks!

Awesome! Thank you.

Could you please explain what's the meaning "GoTo 0" in your code? I
cannot find any line labeled with "0".

On Error Resume Next

suspends breaking on errors

On Error Goto 0

restores breaking on errors

These should be used in pairs and encompass an include as few statements as
necessary as they can mask real errors making debugging very difficult.

--
Regards,
Tom Ogilvy

"lvcha.gouqizi" wrote in message
ups.com...
Awesome! Thank you.

Could you please explain what's the meaning "GoTo 0" in your code? I
cannot find any line labeled with "0".

Thanks for explaining.