Edit text of shape without selecting it
 

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

Edit text of shape without selecting it
 

Tony,

Try it this way

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


--
Hope that helps.

Vergel Adriano


"bony_tony" wrote:

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

Edit text of shape without selecting it
 

Thanks mate

On May 2, 2:06 pm, Vergel Adriano
wrote:
Tony,

Try it this way

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

--
Hope that helps.

Vergel Adriano



"bony_tony" wrote:
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- Hide quoted text -

- Show quoted text -