Delete (方法) #

#本示例将第一张工作表中的所有椭圆删除
def test():
    shapes = Application.Worksheets.Item(1).Shapes
    for i in range(1, shapes.Count):
        if shapes.Item(i).AutoShapeType == msoShapeOval:
            shapes.Item(i).Delete()

#本示例判断如果活动工作表中第二个形状为矩形，则删除
def test():
    shapes = ActiveSheet.Shapes
    if shapes.Item(2).AutoShapeType == msoShapeRectangle:
        shapes.Item(2).Delete()