Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel menu dans barre d'outil - icone

menu dans barre d'outil - icone

1 réponse
Avatar
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"
------
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fredo P.
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" a écrit dans le message de
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"
------