Shape.Duplicate (Word)

Cette méthode crée une copie de l’objet Shape spécifié, ajoute la nouvelle forme à la collection Shapes à un décalage standard par rapport aux formes d’origine, puis renvoie le nouvel objet Shape .

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