Apply Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Applies formatting copied from another shape or shape range using the PickUp method.
expression.Apply
expression Required. An expression that returns one of the objects in the Applies To list.
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