PickUp Method

Microsoft Word Visual Basic

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