Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Barre de commandes personnalisées

Barre de commandes personnalisées

2 réponses
Avatar
GérardJean
Bonjour

Lorsque je crée une barre de commandes personnalisées, je n'arrive pas à
faire apparaître dans la barre l'intitulé des commandes (cf. ci-dessous)
Quelqu'un peut-il m'éclairer?, merci

Set MenuDoc = CommandBars.Add("Menu Document", Position:=msoBarTop,
temporary:=True)
With MenuDoc
.Protection = msoBarNoProtection
.Controls.Add Type:=msoControlButton
.Controls(1).OnAction = "Archiver"
.Controls(1).Caption = "Archiver"
.Controls(1).Width = 70
.Controls.Add Type:=msoControlButton
.Controls(2).OnAction = "Imprimer"
.Controls(2).Caption = "Imprimer"
.Controls(2).Width = 70
..........
.Visible = True
End With
Signaler un problème avec ce contenu

2 réponses

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
tissot.emmanuel
Bonjour,

Ajoute ceci avant de définir Caption.

.Controls(1).Style = msoButtonCaption

Cordialement,

Manu/

"GérardJean" a écrit dans le message
de news:
Bonjour

Lorsque je crée une barre de commandes personnalisées, je n'arrive pas à
faire apparaître dans la barre l'intitulé des commandes (cf. ci-dessous)
Quelqu'un peut-il m'éclairer?, merci

Set MenuDoc = CommandBars.Add("Menu Document", Position:=msoBarTop,
temporary:=True)
With MenuDoc
.Protection = msoBarNoProtection
.Controls.Add Type:=msoControlButton
.Controls(1).OnAction = "Archiver"
.Controls(1).Caption = "Archiver"
.Controls(1).Width = 70
.Controls.Add Type:=msoControlButton
.Controls(2).OnAction = "Imprimer"
.Controls(2).Caption = "Imprimer"
.Controls(2).Width = 70
..........
.Visible = True
End With



Avatar
jps
bonjour
comme ceci peut-être et tu as même la bulle lorsque le curseur pointe sur
ton bouton pour le même prix....

With MenuDoc
.Protection = msoBarNoProtection
.Controls.Add Type:=msoControlButton
.Controls(1).Style = msoButtonCaption
.OnAction = "Archiver"
.Controls(1).Caption = "Archiver"
.Controls(1).TooltipText = "Archiver"
.Controls(1).Width = 70
.Controls.Add Type:=msoControlButton
.Controls(2).Style = msoButtonCaption
.Controls(2).OnAction = "Imprimer"
.Controls(2).Caption = "Imprimer"
.Controls(2).TooltipText = "Archiver"
.Controls(2).Width = 70
.Visible = True
End With

HTH
jps

"GérardJean" a écrit dans le message
de news:
Bonjour

Lorsque je crée une barre de commandes personnalisées, je n'arrive pas à
faire apparaître dans la barre l'intitulé des commandes (cf. ci-dessous)
Quelqu'un peut-il m'éclairer?, merci

Set MenuDoc = CommandBars.Add("Menu Document", Position:=msoBarTop,
temporary:=True)
With MenuDoc
.Protection = msoBarNoProtection
.Controls.Add Type:=msoControlButton
.Controls(1).OnAction = "Archiver"
.Controls(1).Caption = "Archiver"
.Controls(1).Width = 70
.Controls.Add Type:=msoControlButton
.Controls(2).OnAction = "Imprimer"
.Controls(2).Caption = "Imprimer"
.Controls(2).Width = 70
..........
.Visible = True
End With