Mostrar todo

Método Clear

Elimina todos los elementos de lista del control de cuadro combinado de la barra de comandos especificada (cuadro de lista emergente o cuadro combinado) y borra el cuadro de texto (cuadro de edición o cuadro combinado).

Nota   Este método fallará si se aplica a un control de barra de comandos integrado.

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

Ejemplo

Este ejemplo comprueba el número de elementos del control de cuadro combinado en la barra de comandos "Custom". Si hay menos de tres elementos en la lista del cuadro combinado, el ejemplo la borra, agrega un nuevo primer elemento a la lista y, a continuación, muestra el nuevo elemento como predeterminado para el control de cuadro combinado.

Set myBar = CommandBars("Custom Bar")
Set myControl = myBar.Controls _
    Type:=msoControlComboBox)
With myControl
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
End With
If myControl.ListCount < 3 Then
    myControl.Clear
    myControl.AddItem Text:="New Item", Index:=1
End If