Objeto CommandBar (Office)

  • Artículo

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

Nota:

El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Ejemplo:

Use CommandBars (index), donde index es el nombre o el número de índice de una barra de comandos, para devolver un único objeto CommandBar . En el ejemplo siguiente se recorre la colección de barras de comandos para buscar la barra de comandos denominada "Forms". Si encuentra esta barra de comandos, el ejemplo la hace visible y protege su 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

Use un nombre o un número de índice para especificar una barra de menús o una barra de herramientas en la lista de barras de menús y barras de herramientas disponibles en la aplicación contenedora. Sin embargo, debe usar un nombre para especificar un menú, un menú contextual o un submenú (todos ellos representados por objetos CommandBar ). En este ejemplo se agrega un nuevo elemento de menú a la parte inferior del menú Herramientas . Cuando se elige, el nuevo elemento de menú ejecuta el procedimiento denominado "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 asegurarse de que obtiene el menú o submenú correcto, busque el control emergente que muestra dicho menú. A continuación, aplique la propiedad CommandBar al control emergente para obtener la barra de comandos que representa dicho menú. Suponiendo que el tercer control de la barra de herramientas denominado Herramientas personalizadas es un control emergente, en este ejemplo se agrega el comando Guardar a la parte inferior de ese menú.

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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.