Shape.Duplicate (Word)

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

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