在Excel工作表中查找并删除所有组合框

Question

我想使用VBA删除工作表中的所有组合框(表单控件类型不活动X)

我有

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

问题是它删除了我的所有形状,我很难找到逻辑只是删除​​组合框(具有不同的名称)

谢谢你的帮助!

Answer 1

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

要不就

activesheet.dropdowns.delete