Mostrar todo

Objeto CommandBarButton

Representa un control de botón de una barra de comandos.

Uso del objeto CommandBarButton

Utilice Controls(index), donde index es el número de índice de un control, para devolver un objeto CommandBarButton. La propiedad Type del control debe ser msoControlButton.

Suponiendo que el segundo control de la barra de herramientas "Custom" sea un botón, este ejemplo cambia el estilo de dicho botón.

Set c = CommandBars("Custom").Controls(2)
With c
If .Type = msoControlButton Then
    If .Style = msoButtonIcon Then
        .Style = msoButtonIconAndCaption
    Else
        .Style = msoButtonIcon
    End If
End If
End With

También puede utilizar el método FindControl para devolver un objeto CommandBarButton.