Mostrar todo

Método AddItem

Agrega un elemento de lista al control de cuadro combinado de la barra de comandos especificada. El control de cuadro combinado debe ser un control personalizado y debe ser o un cuadro de lista emergente o un cuadro combinado.

Nota   Este método fallará si se aplica a un control de cuadro combinado que sea un control de cuadro de edición o de cuadro combinado integrado.

expresión   Requerida. Expresión que devuelve un objeto CommandBarComboBox.

Text   String requerida. Elemento que se va a agregar al control especificado.

Index   Variant opcional. La posición del elemento especificado de la lista. Si se omite este argumento, el elemento se agrega al final de la lista.

Ejemplo

Este ejemplo agrega un control de cuadro combinado a una barra de comandos. El ejemplo también agrega dos elementos al control, establece el número de elementos de línea y el ancho del cuadro combinado establecidos.

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)
With myControl
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
    .DropDownLines = 3
    .DropDownWidth = 75
    .ListHeaderCount = 0
End With