Rounded Rectangle 1 - Shapes caption! Pls help!

[pedie]

CommandButton1.Caption = "Stop"

But i am using "Rounded Rectangle 1" and I suppose "Rounded Rectangle 1" SHAPES does not have caption thing....

How can i make "Rounded Rectangle 1.Caption = "Stop" " work

it is giving me error

Thanks Ped

 

[VoG]

Is this a Form control or an ActiveX control?

 

[mikerickson]

To change the text in a shape, the .TextFrame property has to be accessed

With ActiveSheet.Shapes("AutoShape 1")
    .TextFrame.Characters.Text = "Testing"
End With

The Object Browser shows all the properties and methods of a TextFrame (and Characters) that can give you total control over how the text is displayed.

 

[pedie]

No VoG, this is from insert tab > Shapes > Rounded Rectangle 1


Lemmi giv it a try with mike's solution...

Thanks

 

[pedie]

Mike, i tried the code and it is giving me error message:

Runtime error "-2147024809 - (80070057)"
the item with the specified name was nt found...

Do i have to change anything in the code??? or is this code applicable for all the shapes

 

[pedie]

It worked sorry Mike and Thanks alot!!!

So suppose if I want to use the caption and if function together in vba how it this going to work.....

for example:
 
If CommandButton1.Caption = "Stop" Then
my code

 

[mikerickson]

With ActiveSheet.Shapes("AutoShape 1")
    If .TextFrame.Characters.Text = "Stop" Then
        Rem do something
    Else
        Rem do something else
    End If
End With

 

[pedie]

Mike, thanks alot!!!

Thank you so much for ur assistance today!

I exactly found the "what I am looking for"

pedie