ShapeRange.Duplicate (Word)

Erstellt ein Duplikat des angegebenen ShapeRange -Objekts, fügt den neuen formenTyp der Shapes -Auflistung bei einem Standard Offset von den ursprünglichen Formen hinzu und gibt dann ein Shape -Objekt zurück.

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