Propiedad CommandBar
Devuelve un objeto CommandBar que representa el menú mostrado por el control emergente especificado. Es de sólo lectura.
Ejemplo
Este ejemplo establece el valor fourthLevel
para el cuarto control de la barra de comandos denominada "Drawing".
Set fourthLevel = CommandBars("Drawing") _
.Controls(1).CommandBar.Controls(4)