PickUp Method
Copies the formatting of the specified shape. Use the Apply method to apply the copied formatting to another shape.
expression.PickUp
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 = Worksheets(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With