Mostrar todo

Objeto CommandBar

CommandBars (CommandBar) CommandBarControls (CommandBarControl)
CommandBarButton
CommandBarComboBox
CommandBarPopup

Es posible que algunas partes de este tema no sean aplicables a algunos idiomas.

Representa una barra de comandos de la aplicación contenedora. El objeto CommandBar es un miembro de la colección CommandBars.

Uso del objeto CommandBar

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 recorre la colección de barras de comandos para buscar la barra de comandos denominada "Forms". Si se encuentra esta barra de comandos, el ejemplo la muestra y protege el estado de acoplamiento. En este ejemplo, la variable cb representa un objeto CommandBar.

foundFlag = False
For Each cb In CommandBars
    If cb.Name = "Forms" Then
        cb.Protection = msoBarNoChangeDock
        cb.Visible = True
        foundFlag = True
    End If
Next cb
If Not foundFlag Then
    MsgBox "The collection does not contain a Forms command bar."
End If

Puede utilizar un nombre o 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 un nombre para especificar un menú, menú contextual o submenú, representados todos por objetos CommandBar. Este ejemplo agrega un elemento nuevo al menú Herramientas. Al hacer clic en él, el nuevo elemento de menú ejecuta el procedimiento "qtrReport".

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton)
With newItem
    .BeginGroup = True
    .Caption = "Make Report"
    .FaceID = 0
    .OnAction = "qtrReport"
End With

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ú.

Suponiendo que el tercer control de la barra de herramientas "Custom Tools" sea un control emergente, este ejemplo agrega el comando Guardar al botón de dicho menú.

Set viewMenu = CommandBars("Custom Tools").Controls(3)
viewMenu.Controls.Add ID:=3    'ID of Save command is 3