Mostrar todo

Objeto CommandBarComboBox

Representa un control de cuadro combinado de una barra de comandos.

Uso del objeto CommandBarComboBox

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarComboBox. La propiedad Type del control debe ser msoControlEdit, msoControlDropdown, msoControlComboBox, msoControlButtonDropdown, msoControlSplitDropdown, msoControlOCXDropdown, msoControlGraphicCombo o msoControlGraphicDropdown.

El siguiente ejemplo agrega dos elementos al segundo control de la barra de comandos denominada "Custom" y, a continuación, ajusta el tamaño del control.

Set combo = CommandBars("Custom").Controls(2)
With combo
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
    .DropDownLines = 3
    .DropDownWidth = 75
    .ListIndex = 0
End With

También puede utilizar el método FindControl para devolver un objeto CommandBarComboBox. El siguiente ejemplo busca todas las barras de comandos de un objeto CommandBarComboBox visible cuyo rótulo sea "sheet assignments".

Set myControl = CommandBars.FindControl _
(Type:=msoControlComboBox, Tag:="sheet assignments", Visible:=True)