PickUp 方法

复制指定形状的格式。使用 Apply 方法将复制的格式应用于其他形状。

expression  必选。该表达式返回一个 Shape 或 ShapeRange 对象。

示例

本示例在 myDocument 上复制第一个形状的格式，然后将该格式应用于第二个形状。

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