ShapeRange.Duplicate (Word)

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

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