Apply Method
Applies To
Shape object, ShapeRange collection object.
Description
Applies to the specified shape formatting that's been copied by using the PickUp method.
Syntax
expression.Apply
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 = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With