ShapeRange.Duplicate (Word)

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

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