Naming of wordart

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mike D. - 25 Mar 2008 21:27 GMT

I have a wordart ("WordArt 36") that is referenced in a macro.

When I copy the worksheet to another worksheet, the name of this changes to
"WordArt 32"

Is there a way to copy the worksheet so that the name of the images stay the
same?

Or, is there a way to rename the wordart to the previous name?

Reply to this Message

Peter T - 25 Mar 2008 21:36 GMT

Rename "WordArt 32" on your original sheet, eg "myWordArt". Then when you
copy it to another sheet it's name should persist. Be aware, doing that you
can end up with multiple shapes on the sheet with the same name.

Regards,
Peter T

> I have a wordart ("WordArt 36") that is referenced in a macro.
>
[quoted text clipped - 5 lines]
>
> Or, is there a way to rename the wordart to the previous name?

Reply to this Message

Mike D. - 25 Mar 2008 21:55 GMT

Peter:

How do I go about naming this? When I select it, go to Insert, Name, Define
- it shows the name of the word art in the "Refers to" section. It won't
allow me to delete, rename, or add ...

Thanks for your help!

Mike.

> Rename "WordArt 32" on your original sheet, eg "myWordArt". Then when you
> copy it to another sheet it's name should persist. Be aware, doing that you
[quoted text clipped - 14 lines]
> >
> > Or, is there a way to rename the wordart to the previous name?

Reply to this Message

Peter T - 25 Mar 2008 22:11 GMT

Manually, select your wordart and you should see its name in the Names box
to the left of the Input bar. Just type your new name in the name box while
the shape is selected.

With code,
Activesheet.Shapes("WordArt 32").Name = "myWordArt"

If you have just added the wordart and haven't changed the 'Order' of any
shapes, you could do this -

With ActiveSheet.Shapes
.Item(.Count).Name = "myWordArt"
End With

With both the above, you'll get an error if another shape exists with the
new name.

Regards,
Peter T

> Peter:
>
[quoted text clipped - 24 lines]
> > >
> > > Or, is there a way to rename the wordart to the previous name?

Reply to this Message

Gord Dibben - 25 Mar 2008 21:50 GMT

Public Sub ReNamePic()
Dim Pic As Shape
With Selection
.ShapeRange.Name = "WordArt 36"
End With
End Sub

Gord Dibben MS Excel MVP

>I have a wordart ("WordArt 36") that is referenced in a macro.
>
[quoted text clipped - 5 lines]
>
>Or, is there a way to rename the wordart to the previous name?

Reply to this Message