Excel宏：添加或删除Excel中所有控件、图表等。

在处理比尔给我的一个excel文件里面有 200多个 复选框，一个一个去删除很麻烦。而且有时候是几个复选框重叠在一起。用下面的程序。一下子就搞定了。

delS 是删除所有的控件和图表。

addCheckBox 是添加 10个复选框

addLabel 是添加10个标签控件。

Dim i As Integer

Sub delS()
    For i = Sheet1.Shapes.Count To 1 Step -1
        Sheet1.Shapes.Item(i).Delete
    Next i
End Sub

Sub addCheckBox()
    For i = 1 To 10
        Sheet1.Shapes.AddFormControl xlCheckBox, 50, 30 + 20 * i, 50, 20
    Next i
End Sub

Sub addLabel()
    For i = 1 To 10
        Sheet1.Shapes.AddFormControl xlLabel, 150, 30 + 20 * i, 50, 20
    Next i
End Sub