本示例复制活动文档中第一个图形的格式,然后将其应用到同一文档的第二个图形。

With ActiveDocument
    .Shapes(1).PickUp
    .Shapes(2).Apply
End With