Другим весьма полезным элементом управления строк меню является раскрывающийся список. Этот элемент позволяет выбрать требуемую величину из некоторого набора значений. При программировании списка необходимо:

• Создать список
• Заполнить список значениями

Создание списка. При добавлении раскрывающегося списка необходимо правильно задать элемент управления строки меню и его тип, т. е. требуется создать объект CommandBarComboBox и указать константу msoControlDropDown, например:

Dim cbDropdown as CommandBarComboBox
Set cbDropDown = CommandBars.Controls.Add _
     (Type: =msoControlDropdown)

Заполнение списка. После создания список заполняется значениями с помощью свойства AddItem. При этом можно также задать положение элемента в списке. Кроме того, имеется возможность указать ширину объекта (свойство DropDownWidth), количество значений, которое выводится при открытии списка (свойство DropDownLines), а также элемент списка, применяемый по умолчанию (свойство ListIndex). Свойство ListIndex также используется для получения индекса, выбранного в списке элемента (программа 9).

Программа 9. Заполнение раскрывающегося списка.

Public Sub DropDownListDemo()
     Dim cbDropDown As CommandBarComboBox
     Dim cbCommandBar As CommandBar
     Set cbCommandBar = CommandBars.Add("Demo")
     Set cbDropDown = cbCommandBar.Controls.Add _
           (Type:=msoControlDropdown)
     With cbDropDown
          .AddItem "Кофе", 1
          .AddItem "Чай", 2
          .AddItem "Сок", 3
          .AddItem "Вода", 4
          .AddItem "Молоко", 5
          .AddItem "Горячий шоколад", 6
          .DropDownWidth =75
          .DropDownLines = 4
          .ListIndex = 2
     End With
     cbCommandBar.Visible = True
End Sub

Для комментария : kadan@grsu.grodno.by