ShapeRange.Apply Method (Excel)
Applies to the specified shape formatting that’s been copied by using the PickUp method.
Syntax
expression .Apply
expression A variable that represents a 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