Mostrar todo

Método RemoveItem

Elimina un elemento de lista del control de cuadro combinado de la barra de comandos especificada.

Nota   Esta propiedad falla cuando se aplica a controles que no sean controles de lista.

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

Index   Long requerido. Elemento que se va a eliminar de la lista.

Ejemplo

Este ejemplo determina si hay más de tres elementos en el cuadro combinado especificado. Si hay más de tres elementos, el ejemplo quita el segundo elemento, altera el estilo para que no muestre el rótulo del cuadro combinado y establece un nuevo valor. También establece la propiedad Tag del objeto maestro, objeto CommandBarControl, para que muestre que la lista ha cambiado.

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
Set myControl = myBar.Controls(1)
With myControl
    If .ListCount > 3 Then
        .RemoveItem 2
        .Style = msoComboNormal
        .Text = "New Default"
         Set ctrl = .Parent
    End If
End With