找到並刪除在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