Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade CommandBarComboBox.List (Office)CommandBarComboBox.List Property (Office)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Obtém ou define um item no controle CommandBarComboBox . Leitura/gravação.Gets or sets an item in the CommandBarComboBox control. Read/write.

Observação O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, procure na ajuda a palavra-chave "faixa de opções".Note The use of CommandBars in some Microsoft Office applications has been superseded by the new ribbon component of the Microsoft Office Fluent user interface. For more information, search Help for the keyword "ribbon."

SintaxeSyntax

expressão. Lista ( Índice )expression. List( Index )

expressão Uma variável que representa um objeto CommandBarComboBox .expression A variable that represents a CommandBarComboBox object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData TypeDescriçãoDescription
IndexIndexObrigatórioRequiredIntegerIntegerO item de lista a ser definido.The list item to be set.

ComentáriosRemarks

Observação Essa propriedade é somente leitura para os controles de caixa de combinação interno.Note This property is read-only for built-in combo box controls.

ExemploExample

Este exemplo verifica o quarto item de lista no controle de caixa de combinação cuja legenda é "Stock Data" na barra de comandos chamada "Custom". Se o item não é "View News", o exemplo exibe uma mensagem avisando o usuário que a caixa de combinação pode estar danificada e pede ao usuário para reinstalar o aplicativo.This example checks the fourth list item in the combo box control whose caption is "Stock Data" on the command bar named "Custom." If the item isn't "View News," the example displays a message advising the user that the combo box may be damaged and asks the user to reinstall the application.

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

Ver tambémSee also

ConceitosConcepts

Objeto CommandBarComboBoxCommandBarComboBox Object

Outros recursosOther resources

Membros do objeto CommandBarComboBoxCommandBarComboBox Object Members

© 2018 Microsoft