Menu personnalisé avec vba et excel 2010

Version imprimable

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:

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

Citation:

Envoyé par Nicoderome

Bonjour,

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

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
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

14/07/2017, 09h46
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