Testing text on a shape

[Ajtb]

Hi

Why does this line cause an error ?

If Sheets("Control").Shapes("Type1").Characters.Text = "OUTCOMES" Then C = 2


But this does not cause an error?

ActiveSheet.Shapes("Type1").Select
If Selection.Characters.Text = "OUTCOMES" Then ....


I would like to check the text on a shape which represents a button
without having to activate the sheet and select the shape first.

Any help appreciated on this one.

Andrew Bourke
Perth, Australia

[Tom Ogilvy]

? Sheets("Control").Shapes("Type1").TextFrame.Characters.Text = "OUTCOMES"
True

? Sheets("Control").Shapes("Type1").TextFrame.Characters.Text
OUTCOMES

--
Regards,
Tom Ogilvy

"Ajtb" <[email protected]> wrote in message
news:[email protected]...
> Hi
>
> Why does this line cause an error ?
>
> If Sheets("Control").Shapes("Type1").Characters.Text = "OUTCOMES" Then C =
2
>
>
> But this does not cause an error?
>
> ActiveSheet.Shapes("Type1").Select
> If Selection.Characters.Text = "OUTCOMES" Then ....
>
>
> I would like to check the text on a shape which represents a button
> without having to activate the sheet and select the shape first.
>
> Any help appreciated on this one.
>
> Andrew Bourke
> Perth, Australia
>

[Ajtb]

Thanks Tom!
Tom Ogilvy wrote:
> ? Sheets("Control").Shapes("Type1").TextFrame.Characters.Text = "OUTCOMES"
> True
>
> ? Sheets("Control").Shapes("Type1").TextFrame.Characters.Text
> OUTCOMES
>

[Leith Ross]

Hello Andrew,

You can change the text without selecting the worksheet. However, the object has to be selected in order to modify the object. Windows is an object oriented programming enviroment. The Select function lets Windows know which object you want to work with. The following code block can be used anywhere in your code to check the Shapes Text, because it now has a fully qualified path.
_________________________________________________________________

For Example - Your code using a fully qualified path in a With Block:

With Worksheets("Control").Shapes("Type 1")
.Select
If .Characters.Text = "OUTCOMES" Then C = 2
End With
_________________________________________________________________

Should work. If not, go have a few pints with your mates, chase a shellar or two and email me [email protected]. Perth was the first city I ever visted in Australia. Loved it.

Best Wishes,
Leith Ross