Bonjour à tous,
J'ai créé une barre d'outil suivant le tutoriel développez ci dessous, qui marche, mais je n'obtiens pas que la caption soit sous l'icône, la séparation du BeginGroup n'apparaît pas non plus, la macro s'effectue normalement.
D'autre part le nom de la barre apparaît comme complément et je souhaite un autre nom, comment le changer ?
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim cmdbar As CommandBar Set cmdbar = CommandBars.Add(Name:="Tools", Position:=msBarTop, Temporary:= True) Dim bouton as CommandBarButton Set bouton = CommandBars("Tools").Controls.Add(type:=msoControlButton) With bouton .style = msobuttonIconAndWrapCaptionBelow .caption = "Général date" .facedID = 1754 .onAction = "affichagebdGeneraldata" .beginGroup = true End with
Partager