Apply Method
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 = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With