在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

Answer 2

如果您拥有的唯一表格是这些组合框，那么：

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