PickUp (方法)

复制指定形状的格式。使用 Apply方法可将复制的格式应用到其他形状。

示例

python

#本示例复制第一张工作表中新建的ShapeRange对象的格式，然后将复制的格式应用到第二个新建的ShapeRange对象上，删除第一个ShapeRange对象
def test():
    shpRange1 = Application.Worksheets.Item(1).Shapes.Range([3])
    shpRange2 = Application.Worksheets.Item(1).Shapes.Range([2, 1])
    shpRange1.PickUp()
    shpRange2.Apply()
    shpRange1.Delete()

python

#此示例复制活动工作表上新建的ShapeRange对象的格式，然后将复制的格式应用到活动工作表所有形状
def test():
    shpRange = ActiveSheet.Shapes.Range([1])
    shpRange.PickUp()
    ActiveSheet.Shapes.SelectAll()
    Selection.ShapeRange.Apply()