Apply 方法

       

应用于指定的形状格式,该形状格式已使用 PickUp 方法复制。

expression.Apply

expression  必选。该表达式返回一个 ShapeShapeRange 对象。

示例

本示例复制 myDocument 上第一个形状的格式,再将所复制的格式应用于第二个形状。

Set myDocument = ActivePresentation.Slides(1)
With myDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With