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.RemoveItem(Index)
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