Compartir a través de

Propiedad CommandBars.ActiveMenuBar (Office)

  • Artículo

Obtiene un objeto CommandBar que representa la barra de menús activa de la aplicación contenedora. Solo lectura.

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.

Sintaxis

expresión. ActiveMenuBar

Expresión Variable que representa un objeto CommandBars .

Ejemplo:

En este ejemplo se agrega un control emergente temporal denominado Personalizado al final de la barra de menús activa y se agrega un control denominado Importar al control emergente.

Set myMenuBar = CommandBars.ActiveMenuBar 
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) 
newMenu.Caption = "Custom" 
Set ctrl1 = newMenu.CommandBar.Controls _ 
    .Add(Type:=msoControlButton, Id:=1) 
With ctrl1 
    .Caption = "Import" 
    .TooltipText = "Import" 
    .Style = msoButtonCaption 
End With

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.