Duplicate Method 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