Barre de commandes personnalisées

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

Ajoute ceci avant de définir Caption.

.Controls(1).Style = msoButtonCaption

Cordialement,

Manu/

"GérardJean" 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



jps
Le #4803401
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" 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



Publicité
Poster une réponse
Anonyme