Propiedad List
Devuelve o establece el valor de un elemento de lista del control de cuadro combinado de la barra de comandos. String de Lectura/Escritura.
Nota Esta propiedad es sólo de lectura para controles de cuadro combinado integrados.
expresión.List(Index)
expresión Requerida. Expresión que devuelve un objeto CommandBarComboBox.
Index Long Requerida. Elemento de lista que se va a establecer.
Ejemplo
Este ejemplo comprueba el valor del cuarto elemento de lista del control de cuadro combinado cuyo título es "Stock Data" en la barra de comandos denominada "Custom". Si el valor no es "View News", el ejemplo muestra un mensaje que advierte al usuario que el cuadro combinado puede estar 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
.AddItem "View News", 4
.Caption = "Stock Data"
.DescriptionText = "View Data For Stock"
End With
If CommandBars("Custom").Controls(1).List(4) _
<> "View News" Then
MsgBox ("Stock Data appears to be damaged." & _
" Please reinstall application.")
End If