Mostrar todo

Objeto de colección CommandBarControls

CommandBars (CommandBar) CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

Colección de objetos CommandBarControl que representan los controles de barras de comandos de una barra de comandos.

Uso de la colección CommandBarControls

Utilice la propiedad Controls para devolver la colección CommandBarControls. El siguiente ejemplo cambia el título de cada control de la barra de comandos denominada "Standard" al valor actual de la propiedad Id para ese control.

For Each ctl In CommandBars("Standard").Controls
    ctl.Caption = CStr(ctl.Id)
Next ctl

Utilice el método Add para agregar un nuevo control de barra de comandos a la colección CommandBarControls. Este ejemplo agrega un nuevo botón vacía a la barra de comandos denominada "Custom".

Set myBlankBtn = CommandBars("Custom").Controls.Add

Utilice Controls(index), donde index es el título o número de índice de un control, para devolver un objeto CommandBarControl, CommandBarButton, CommandBarComboBox o CommandBarPopup. El siguiente ejemplo copia el primer control de la barra de comandos "Standard" a la barra de comandos "Custom".

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
myControl.Copy Bar:=myCustomBar, Before:=1