Свойство CommandBarComboBox.List (Office)

  • Статья

Возвращает или задает элемент в элементе управления CommandBarComboBox . Для чтения и записи.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. List (Index)

Выражение Переменная, представляющая объект CommandBarComboBox .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Индекс; Обязательный Integer Задается элемент списка.

Замечания

Это свойство доступно только для чтения для встроенных элементов управления со списком.

Пример

В этом примере проверяется четвертый элемент списка в элементе управления поле со списком, подпись которого — Stock Data на панели команд с именем Custom. Если элемент не является "Просмотр новостей", в примере отображается сообщение о том, что поле со списком может быть повреждено, и просит пользователя переустановить приложение.

Set myBar = CommandBars _ 
    .Add(Name:="Custom", Position:=msoBarTop, _ 
    Temporary:=True) 
With myBar 
    .Controls.Add Type:=msoControlComboBox, ID:=1 
    .Visible = True  
End With 
With CommandBars("Custom").Controls(1) 
    .AddItem "Get Stock Quote", 1 
    .AddItem "View Chart", 2 
    .AddItem "View Fundamentals", 3 
    .AddItem "View News", 4 
    .Caption = "Stock Data" 
    .DescriptionText = "View Data For Stock" 
End With 
If CommandBars("Custom").Controls(1).List(4) _ 
     > "View News" Then 
MsgBox ("Stock Data appears to be damaged." & _ 
     " Please reinstall application.") 
End If

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.