Apply Method 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