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