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