Не могу добавить элемент в выпадающий список (контроль формы) в VBA Excel

Question

У меня есть несколько ComboBox (контроль формы) на sheet1.Я хотел бы просмотреть и заполнить их.Ничего не происходит, нет ошибок или нет элементов в списке каждого ComboBox.Я использую этот код:

Sub cmbBox()
    Dim ctrl As Shape
    For Each ctrl In Sheet1.Shapes
        If ctrl.Type = msoOLEControlObject Then
            ctrl.AddItem "Done"
            ctrl.AddItem "Not Done"
        End If
    Next
End Sub

Answer 1

Вы можете напрямую проходить через DropDowns (так называются «ComboBoxes» элемента управления формой) вместо того, чтобы зацикливать все Shapes…

Option Explicit

Public Sub PopulateCombos()
    Dim dd As DropDown
    For Each dd In Sheet1.DropDowns
        dd.AddItem "Done"
        dd.AddItem "Not Done"
    Next dd
End Sub