PickUp 方法

       

复制指定形状的格式。可用 Apply 方法将所复制的格式应用到其他形状上。

expression.PickUp

expression   必需。该表达式返回 ShapeShapeRange 对象。

示例

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

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