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