PickUp Method Example
This example copies the formatting of shape one on myDocument, and then applies the copied formatting to shape two.
myDocument
Set myDocument = ActivePresentation.Slides(1) With myDocument .Shapes(1).PickUp .Shapes(2).Apply End With