PickUp Method [Publisher 2003 VBA Language Reference]

Copies formatting from a shape or shape range so that it can be copied to another shape or shape range using the Apply method.

expression.PickUp

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

You must use the PickUp method to copy the formatting from a shape or shape range before using the Apply method; otherwise, an error occurs.

Example

The following example copies the formatting from the first shape of the active publication to the second shape of the active publication.

With ActiveDocument.Pages(1)
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With

Applies to | Shape Object | ShapeRange Collection