Copy Word Art in macro

[dhstein]

I have a word art that I want to copy to several places in a worksheet. I
tried recording a macro but the copy just picks up cell location - not word
art object. Any idea how to do this? Thanks for any help on this.

 

[joel]

You have to copy and paste the shape then move it to a new location

With ActiveSheet
Set MyShape = .Shapes("WordArt 1")
MyShape.Copy
.Paste
Set NewShape = Selection
NewShape.Left = 2.4
NewShape.Top = 2.4
End Wit

 

[Gord Dibben]

This is what I get when I copy Wordart using recorder.

ActiveSheet.Shapes("WordArt 128").Select
Selection.Copy
Sheets("Sheet3").Select
Range("Q7").Select
ActiveSheet.Paste

Perhaps you are not properly selecting the object?

Right-click on the edge of the object to select and copy.


Gord Dibben MS Excel MVP