ShapeRange.Duplicate Method (Word)
Creates a duplicate of the specified ShapeRange object, adds the new range of shapes to the Shapes collection at a standard offset from the original shapes, and then returns a Shape object.
Syntax
expression .Duplicate
expression Required. A variable that represents a ShapeRange object.
Example
This example creates a duplicate of shape one on the active document and then changes the fill for the new shape.
Set newShape = ActiveDocument.Shapes(1).Duplicate
With newShape
.Fill.PresetGradient msoGradientVertical, 1, msoGradientGold
End With