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