Discussion :

[Nicoderome]

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

[Invité]

Bonjour,

Ci-joint, un exemple de ce que j'utilise pour mes macros complémentaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
 
Sub CreationMenu()
 
Dim Item As CommandBarControl
Dim IndexAide As Integer
Dim NouveauMenu As CommandBarPopup
 
    '------------------------------
    ' Numéro d'index du menu d'aide
    '------------------------------
    IndexAide = CommandBars(1).Controls("?").Index
 
    '---------------------
    ' Création du contrôle
    '---------------------
    Set NouveauMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=IndexAide, Temporary:=True)
 
    With NouveauMenu
 
         .Caption = "Tools"
         .TooltipText = "Nicoderome - Tél  - Version du 14-07-2017" '
 
       '  Set Item = CommandBars(1).Controls("Tools").Controls.Add(Type:=msoControlPopup) ' En cas de menus et sous menus
       '      Item.Caption = "XXXXX"
       '      Item.BeginGroup = True
 
         Set Item = CommandBars(1).Controls("Tools").Controls.Add(Type:=msoControlButton)
         With Item
             .Caption = "Général date"
             .OnAction = "affichagebdGeneraldata"
             .BeginGroup = True
         End With
         Set Item = Nothing
 
    End With
 
    Set NouveauMenu = Nothing
 
End Sub

[Nicoderome]

Merci à vous et à développez.net
Par contre le style reste toujours à résoudre pour que le caption soit sous l'icône.
.style = msoButtonAndCaptionBelow n'est pas actif
Merci