如何编制VBA语句删除excel表中所有控件

如题所述

遍历所有控件，逐个删除就可以了。

举例说明：

例如有表格如图：

第一步：插入模块，编写代码如下：

Sub test()
Sheets("sheet1").Activate
For Each myc In ActiveSheet.Shapes
myc.Delete
Next myc
End Sub

第二步：运行宏test。如图：

结果如图：