Apply 方法

把用 PickUp 方法复制的图形格式应用到指定的图形上。

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

示例

本示例复制 myDocument 上第一个图形的格式，然后将所复制的图形应用到第二个图形上。

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