Propiedad ListCount
Devuelve el número de elementos de lista del control de cuadro combinado de la barra de comandos. Long de sólo lectura.
Ejemplo
Este ejemplo comprueba el número de elementos del cuadro combinado en la barra de comandos denominada "Custom". Si no hay tres elementos en la lista producidos por el procedimiento, el ejemplo muestra un mensaje que advierte al usuario que el cuadro combinado puede resultar dañado y solicitándole que vuelva a instalar la aplicación.
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
.Caption = "Stock Data"
.DescriptionText = "View Data For Stock"
End With
If CommandBars("Custom").Controls(1).ListCount _
<> 4 Then
MsgBox ("ComboBox appears to be damaged." & _
" Please reinstall.")
End If