Discussion :

[NEC14]

Bonjour à tous,

J'ai créé avec votre aide une barre de menus perso avec des menus et des sous menus.

J'aimerai savoir si il est possible que les intitulés des menus soit d'une couleur différente des sous menus.

Pouvez-vous m'expliquer comment ?

Voici une partie de mon code avec un menu et un sous menu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'insertion dans le menu 1 "Engagements"
Set Cpop2 = Cpop1.Controls.Add(msoControlPopup)
Cpop2.Caption = "Engagements" '<-- texte du sous-menu
 
'insertion dans le sous-menu 1 d'un bouton actionnant la procédure "Nouveaux"
Set Cbut = Cpop2.Controls.Add(Type:=msoControlButton)
With Cbut
    .style = msoButtonIconAndCaption '<-- bouton avec texte
    .Caption = "Nouveaux" '<-- texte du bouton
    .FaceId = 173
    .OnAction = "Macro_A" '<-- procédure à exécuter
End With

Merci par avance

[Qwazerty]

Salut
Lors de l'ajout d'un élément, tu fais appelle à la Class CommandBarControl, malheureusement celle ci ne contient pas de propriété Color, donc à mon avis, il n'est pas possible de modifier la couleur.

Par contre peut être que ce post pourra t'aider.

++
Qwaz

[NEC14]

Bonjour,

Merci pour ta réponse et je te prie de m'excuser pour ma réponse tardive. Je vais m'inspirer de ton post pour mes différentes appli.
Encore mille mercis
Bien amicalement