2 pièce(s) jointe(s)
Personnalisation du ruban - VBA
Bonjour à tous,
Je souhaiterai personnaliser le ruban Excel, à l'ouverture d'Excel via VBA.
Je cherché, fouillé, testé pas mal de choses, mais je n'arrive pas au résultat voulu.
Pour l'instant, j'en suis là :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
Set CmdBar = Application.CommandBars _
.Add(Name:="Def", Position:=msoBarTop, Temporary:=True)
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 372
.Caption = "Rafraichissement"
.DescriptionText = "Coucou"
.Style = msoButtonIconAndCaptionBelow
.OnAction = "Macro1"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.Caption = "Validation données"
.FaceId = 1087
.OnAction = "Macro2"
.Style = msoButtonIconAndWrapCaptionBelow
End With
CmdBar.Visible = True
End Sub |
Ce qui me donne ceci :
Pièce jointe 627397
J'aurai souhaité modifier le nom "Complément" et avoir des icônes plus grandes, pour arriver à un menu ressemblant à ceci (quand je passe par l'édition manuelle du ruban) :
Pièce jointe 627398
Pourriez-vous m'aider?
Merci d'avance,
David.