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