Propiedad DropDownWidth
Devuelve o establece el ancho, en píxeles, de la lista del control de cuadro combinado de la barra de comandos especificada. Long de Lectura/Escritura.
Nota Si esta propiedad se establece para una barra de comandos integrada, se producirá un error.
Comentarios
Si esta propiedad se establece en -1, el ancho de la lista se basará en la longitud del elemento más largo de la lista del cuadro combinado. Si esta propiedad se establece en 0, el ancho de la lista se basará en el ancho del control.
Ejemplo
Este ejemplo agrega un control de cuadro combinado a la barra de comandos denominada "Custom" y, a continuación, agrega dos elementos a la lista del cuadro combinado. El ejemplo también establece el número de elementos de línea, el ancho del cuadro combinado y un valor vacío predeterminado para el cuadro combinado.
Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)
With myControl
.AddItem "First Item", 1
.AddItem "Second Item", 2
.DropDownLines = 3
.DropDownWidth = 75
.ListHeaderCount = 0
End With