PickUp Method

Copies the formatting of the specified shape. Use the Apply method to apply the copied formatting to another shape.

expression.PickUp

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

Example

This example copies the formatting of shape one on myDocument and then applies the copied formatting to shape two.

Set myDocument = ActiveDocument
With myDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With

Applies to | Shape Object | ShapeRange Collection Object