ShapeRange.PickUp Method (Word)
Copies the formatting of the specified shape.
Syntax
expression .PickUp
expression Required. A variable that represents a ShapeRange object.
Remarks
Use the Apply method to apply the copied formatting to another shape.
Example
This example copies the formatting of shape one on myDocument and then applies the copied formatting to shape two.
Set myDocument = ActiveDocument
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With