应用于指定的形状格式,该形状格式已使用 PickUp 方法复制。
expression.Apply
expression 必选。该表达式返回一个 Shape 或 ShapeRange 对象。
本示例复制 myDocument
上第一个形状的格式,再将所复制的格式应用于第二个形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With