PickUp 方法

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

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

示例

本示例首先复制 myDocument 中图形 1 的格式，然后将此格式应用于图形 2。

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