在Excel工作表中查找和删除所有combobox

我想使用VBA删除工作表中的所有combobox（表单控件types不是活动的X）

我有

For Each s In ActiveSheet.Shapes s.Delete Next s 

问题是它删除了我所有的形状，而且我很难find逻辑删除combobox（名称不同）

谢谢你的帮助！

Answer 1

 With ActiveSheet.DropDowns Do While .Count > 0 .Item(1).Delete Loop End With 

要不就

 activesheet.dropdowns.delete 

Answer 2

如果只有这些combobox是这些combobox，那么：

 Sub qwerty() Dim s As Shape For Each s In ActiveSheet.Shapes If s.Type = 8 Then s.Delete End If Next s End Sub