Mostrar todo

Objeto de colección CommandBars

CommandBars (CommandBar) CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

Colección de objetos CommandBar que representa las barras de comandos de la aplicación contenedora.

Uso de la colección CommandBars

Utilice la propiedad CommandBars para devolver la colección CommandBars. El siguiente ejemplo muestra, en la ventana Immediate, el nombre y el nombre local de cada barra de menús y de herramientas, y muestra un valor que indica si la barra de menús o de herramientas está visible.

For Each cbar in CommandBars
    Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
Next

Utilice el método Add para agregar una nueva barra de comandos a la colección. El siguiente ejemplo crea una barra de herramientas personalizada denominada "Custom1" y la muestra como barra de herramientas flotante.

Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
cbar1.Visible = True

Utilice CommandBars(index), donde index es el nombre o número de índice de una barra de comandos, para devolver un solo objeto CommandBar. El siguiente ejemplo acopla la barra de herramientas denominada "Custom1" en la parte inferior de la ventana de aplicación.

CommandBars("Custom1").Position = msoBarBottom

Nota   Puede utilizar el nombre o el número de índice para especificar una barra de menús o de herramientas de la lista de barras de menús o de herramientas disponibles en la aplicación contenedora. Sin embargo, debe utilizar el nombre para especificar un menú, menú contextual o submenú, representados todos por objetos CommandBar.

Si dos o más menús o submenús personalizados tienen el mismo nombre, CommandBars(index) devuelve el primero. Para asegurar que devuelve el menú o submenú correcto, busque el control emergente que muestra dicho menú. A continuación aplique la propiedad CommandBar al control emergente para devolver la barra de comandos que representa dicho menú.