Affichage de la légende du bouton CommandBar avec Excel VBA

Question

J'essaie d'ajouter un bouton à un nouveau CommandBar (pour l'onglet Add-in) avec Excel VBA. Je peux placer le bouton dans le ruban et obtenir une image pour l'utiliser si j'utilise un FaceId, mais je n'arrive pas à faire apparaître la légende. Y a-t-il un moyen de le faire? Dois-je utiliser une image à la place?

With Application.CommandBars.Add("Open Forms") 
    With .Controls.Add(msoControlButton) 
     .OnAction = "ThisWorkbook.FunctionFunction" 
     .Caption = "Call the Function" 
    End With 

    .Visible = True 
End With 

Answer 1

Vous devez définir la propriété style du nouveau bouton comme suit:

.Style = msoButtonIconAndCaption 

Il existe d'autres options pour le style (par exemple msoButtonCaption.). Vous pouvez facilement voir la liste grâce à intellisense.