Objeto CommandBarControls (Office)

Colección de objetos CommandBarControl que representan los controles de barra de comandos en una barra de comandos.

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

Utilice la propiedad Controls para devolver la colección CommandBarControls . En el ejemplo siguiente se cambia la subtítulo de cada control de la barra de herramientas denominada Standard al valor actual de la propiedad Id para ese control.

For Each ctl In CommandBars("Standard").Controls 
    ctl.Caption = CStr(ctl.Id) 
Next ctl

Use el método Add para agregar un nuevo control de barra de comandos a la colección CommandBarControls . En este ejemplo se agrega un nuevo botón en blanco a la barra de comandos denominada Custom.

Set myBlankBtn = CommandBars("Custom").Controls.Add

Use Controls(index), donde index es el número de subtítulo o índice de un control, para devolver un objeto CommandBarControl, CommandBarButton, CommandBarComboBox o CommandBarPopup. En el ejemplo siguiente se copia el primer control de la barra de comandos denominada Standard a la barra de comandos denominada Custom.

Set myCustomBar = CommandBars("Custom") 
Set myControl = CommandBars("Standard").Controls(1) 
myControl.Copy Bar:=myCustomBar, Before:=1

Vea también

• Miembros del objeto CommandBarControls
• Referencia del modelo de objeto

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.