Edit text of shape without selecting it

[bony_tony]

Hi,
I've got the following which edits the text on a shape;

ActiveSheet.Shapes("Button 12988").Select
Selection.Characters.Text = "More Info"

I assumed

ActiveSheet.Shapes("Button 12988").Characters.Text = "More Info"

would do the same thing, but it gives me an error.
How do edit the text without selecting the shape??

Thanks
Tony

 

[Guest]

Tony,

Try it this way

activesheet.shapes("Button 12988").OleFormat.Object.Caption="More Info"

 

[bony_tony]

Thanks mate

Tony,

Try it this way

activesheet.shapes("Button 12988").OleFormat.Object.Caption="More Info"

--
Hope that helps.

Vergel Adriano










- Show quoted text -