Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news: eZ0I3NqLJHA.1156@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news: eZ0I3NqLJHA.1156@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news: eZ0I3NqLJHA.1156@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news: eZ0I3NqLJHA.1156@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci
Private Sub AddMenuToCommandBarHelp(Cb As CommandBar, blnBeginGroup As
Boolean)
Dim M As CommandBarControl
If Cb Is Nothing Then Exit Sub
With Cb
Set M = .Controls.Add(msoControlPopup)
With M
.BeginGroup = blnBeginGroup
.Caption = "&?"
.TooltipText = "Document d'aide ..."
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
With .Controls.Add(msoControlButton)
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End With
.Visible = True
End With
End Sub
"RENAUD Eric" <erenaud(retirerceci)@hotmail.fr> a écrit dans le message de
news:
Bonjour,
J'ai crée une barre d'outils personnalisée.
Par contre j'ai à la fin de cette barre, un bouton avec le libellé Aide et
lorsque je clique dessus, ça me déroule un menu.
Jusque là c'est parfait.
Ce que je souhaite faire c'est toujours avoir ce menu Aide non plus avec
le
libellé Aide mais avec un icône (FaceID) comme par exemple avec le ? du
menu
Fichier, Edition,...
qui lorsque l'on clique dessus, il déroule une liste
Dans mon code de Sous/Menu je pense qu'il faut remplacer CommandBarPopup
par
CommandBarButtonPopup mais je ne trouve pas le code adéquat.
Code utilisé :
Private Sub AddMenuToCommandBarHelp(cb As CommandBar, blnBeginGroup As
Boolean)
Dim m As CommandBarPopup, mi As CommandBarButton
If cb Is Nothing Then Exit Sub
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Aide "
.TooltipText = "Document d'aide ..."
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide PDF ..."
.OnAction = "AidePDF"
.FaceId = 201
.Style = msoButtonIconAndCaption
End With
Set mi = m.Controls.Add(msoControlButton, , , , True)
With mi
.BeginGroup = True
.Caption = "Aide HTM ..."
.OnAction = "AideHTM"
.FaceId = 487
.Style = msoButtonIconAndCaption
End With
End Sub
D'ance merci