ShapeRange.Duplicate (Word)

Cria uma duplicata do objeto ShapeRange especificado, adiciona o novo intervalo de formas à coleção Shapes em um deslocamento padrão das formas originais e retorna um objeto Shape .

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