text in a shape

[Jackeb]

Can anyone help me..??

What is the line of code to retrieve the text in an autoshape?

how do i test this text for a certain word, the word is current..??

Heelllppppp......

cheers

Ed

 

[Al Chara]

The following code tests the selected autoshape:

TestText = Selection.Characters.Text
If TestText = "current" Then MsgBox "Text is equal to current"

 

[Jackeb]

for some reason this doesn't seam to work.....

i am slightly bemused..???

 

[Al Chara]

You have to have the autoshape selected.

 

[Jackeb]

yeah,

I have selected the shape using:

Sub currentbar()
Dim sh As Shape, shtxt As String


For Each sh In ActiveSheet.Shapes

sh.Select
shtxt = Selection.Characters.Text

Debug.Print shtxt

Next

Set sh = Nothing
End Sub

but I cannot get a list of the text in the autoshapes....

I am sure that it is a simple solution!?!?!?!

 

[Al Chara]

Try the following:

For Each sh In ActiveSheet.Shapes

sh.Select
On Error Resume Next
shtxt = Selection.Characters.Text

MsgBox shtxt

Next

 

[Jackeb]

that is great,

It didn't like the shapes without any text in, that bypassed it...


Merci