menu dans barre d'outil - icone

Le
Sunburn
Bonjour,
est-il possible d'ajouter un icone dans un menu d'une barre d'outil ?
voici mon code, MERCI YANN
-
Set mybar1 = CommandBars.Add("docsWORD")
With mybar1
.Visible = True
.Position = msoBarTop
'Obtenir la ligne où tu veux situer ta barre d'outils
'ici, je prends pour acquis que je veux qu'elle soit
'sur la même ligne que la barre "Formatting"
.RowIndex = Application.CommandBars("test").RowIndex
'Pour situer ma barre à l'extrémité de la barre "formatting"
.Left = Application.CommandBars("test").Width
End With
Set newmenu =
Application.CommandBars("docsWORD").Controls.Add(Type:=msoControlPopup,
Temporary:=True, ID:=1)
newmenu.Caption = "Notes WORD"
newmenu.FaceId = 681
Set menu10 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu10.Caption = "Ouvrir un document Word vierge"
menu10.FaceId = 42
menu10.OnAction = "MacroWord"
Set menu11 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu11.Caption = "Ouvrir la note de revue de l'EC"
menu11.FaceId = 7015
menu11.OnAction = "MacroWordExp"
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P.
Le #17979011
Oui clic droit sur partie libre de la
BO>personnaliser>Commande>Formulaire>Bouton (Drag-Drop vers la BO avec la
souris)>clic droit sur le bouton>éditeur de bouton.
"Sunburn" news:
Bonjour,
est-il possible d'ajouter un icone dans un menu d'une barre d'outil ?
voici mon code, MERCI YANN
----
Set mybar1 = CommandBars.Add("docsWORD")
With mybar1
.Visible = True
.Position = msoBarTop
'Obtenir la ligne où tu veux situer ta barre d'outils
'ici, je prends pour acquis que je veux qu'elle soit
'sur la même ligne que la barre "Formatting"
.RowIndex = Application.CommandBars("test").RowIndex
'Pour situer ma barre à l'extrémité de la barre "formatting"
.Left = Application.CommandBars("test").Width
End With
Set newmenu > Application.CommandBars("docsWORD").Controls.Add(Type:=msoControlPopup,
Temporary:=True, ID:=1)
newmenu.Caption = "Notes WORD"
newmenu.FaceId = 681
Set menu10 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu10.Caption = "Ouvrir un document Word vierge"
menu10.FaceId = 42
menu10.OnAction = "MacroWord"
Set menu11 = newmenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
menu11.Caption = "Ouvrir la note de revue de l'EC"
menu11.FaceId = 7015
menu11.OnAction = "MacroWordExp"
------


Publicité
Poster une réponse
Anonyme