Apply (方法)

应用通过 PickUp方法复制的指定形状格式。

示例

python

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

python

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