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

  • Статья

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

Примечание.

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

Синтаксис

expression. ListCount

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

Пример

В этом примере проверяется количество элементов в поле со списком на панели команд с именем 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 
    .Caption = "Stock Data" 
    .DescriptionText = "View Data For Stock" 
End With 
If CommandBars("Custom").Controls(1).ListCount _ 
     > 4 Then 
MsgBox ("ComboBox appears to be damaged." & _ 
     " Please reinstall.") 
End If

См. также

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

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