Apply Method [Excel 2003 VBA Language Reference]
Applies to the specified shape formatting that's been copied by using the PickUp method.
expression.Apply
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 = Worksheets(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With
Applies to | Shape Object | ShapeRange Collection