复制指定形状的格式。可用 Apply 方法将所复制的格式应用到其他形状上。
expression.PickUp
expression 必需。该表达式返回 Shape 或 ShapeRange 对象。
本示例复制 myDocument
上第一个图形的格式,然后将复制的形状应用到第二个图形上。
Set myDocument = Worksheets(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With