Shape.Duplicate (Word)

Crea un duplicado del objeto Shape especificado, agrega la nueva forma a la colección Shapes con un desplazamiento estándar de las formas originales y, a continuación, devuelve el nuevo objeto Shape .

Set newShape = ActiveDocument.Shapes(1).Duplicate 
With newShape 
 .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold 
End With