ShapeRange.Apply Method (Publisher)

Applies formatting copied from another shape or shape range using the PickUp method.

Syntax

expression .Apply

expression A variable that represents a ShapeRange object.

Return Value

Nothing

Remarks

If you do not first use the PickUp method to copy the formatting from another shape, 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