PickUp方法
复制指定形状的格式。可用Apply方法将所复制的格式应用到其他形状上。
expression.PickUp
expression 必需。该表达式返回 Shape 或 ShapeRange对象。
Excel VBA教程：PickUp方法·示例
本示例复制myDocument 上第一个图形的格式，然后将复制的形状应用到第二个图形上。
Set myDocument = Worksheets(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With
本文来源：https://www.2haoxitong.net/k/doc/7a8cfc85700abb68a882fb0d.html
文档为doc格式