Naming of wordart

[Mike D.]

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?

 

[Peter T]

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

 

[Gord Dibben]

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


Gord Dibben MS Excel MVP

 

[Mike D.]

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.

 

[Peter T]

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