Duplicate Method

Creates a duplicate of the specified Shape or ShapeRange object, adds the new range of shapes to the Shapes collection at a standard offset from the original shapes, and then returns the new Shape object.


expression Required. An expression that returns a Shape or ShapeRange object.


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

Applies to | Shape Object | ShapeRange Collection Object