本示例复制活动文档中第一个图形的格式,然后将其应用到同一文档的第二个图形。
With ActiveDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With