OVH Cloud OVH Cloud

barre d'outils personnalisée (avec MsoControlPopup)

3 réponses
Avatar
RENAUD Eric
Bonjour,
J'ai crée une barre d'outils perso.
J'ai un cas avec un menu Popup intitulé "Imp. trimestre ?"
L'exemple
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Imp. trimestre ?"
.Style = msoButtonIconAndCaption
.FaceId = 71
.TooltipText = "Choix du trimestre à imprimer."
End With

Au lieu d'écrire "Imp. trimestre ?", j'aimerai pouvoir mettre une icône à la
place comme par exemple les icônes dans la barre d'outils Standard et
representées sous forme de flèche vers la gauche ou vers la droite et qui
permettent de revenir en arrière ou en avant (Rétablir et Annuler).

D'avance merci.

3 réponses

Avatar
papou
Bonjour
Bien que je ne puisse pas tester maintenant, il me semble que tu dois
modifier la propriété style avec msobuttonicon et ne renseigner que la
propriété FaceID
Cordialement
Pascal

"RENAUD Eric" a écrit dans le message de
news:%
Bonjour,
J'ai crée une barre d'outils perso.
J'ai un cas avec un menu Popup intitulé "Imp. trimestre ?"
L'exemple
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Imp. trimestre ?"
.Style = msoButtonIconAndCaption
.FaceId = 71
.TooltipText = "Choix du trimestre à imprimer."
End With

Au lieu d'écrire "Imp. trimestre ?", j'aimerai pouvoir mettre une icône à
la

place comme par exemple les icônes dans la barre d'outils Standard et
representées sous forme de flèche vers la gauche ou vers la droite et qui
permettent de revenir en arrière ou en avant (Rétablir et Annuler).

D'avance merci.




Avatar
RENAUD Eric
Merci de ta réponse mais j'ai testé avec le code suivant mais cela ne
fonctionne pas
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.FaceId = 71
.Style = msoButtonIcon
.TooltipText = "Choix du trimestre à imprimer."
End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Bien que je ne puisse pas tester maintenant, il me semble que tu dois
modifier la propriété style avec msobuttonicon et ne renseigner que la
propriété FaceID
Cordialement
Pascal

"RENAUD Eric" a écrit dans le message de
news:%
Bonjour,
J'ai crée une barre d'outils perso.
J'ai un cas avec un menu Popup intitulé "Imp. trimestre ?"
L'exemple
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Imp. trimestre ?"
.Style = msoButtonIconAndCaption
.FaceId = 71
.TooltipText = "Choix du trimestre à imprimer."
End With

Au lieu d'écrire "Imp. trimestre ?", j'aimerai pouvoir mettre une icône
à


la
place comme par exemple les icônes dans la barre d'outils Standard et
representées sous forme de flèche vers la gauche ou vers la droite et
qui


permettent de revenir en arrière ou en avant (Rétablir et Annuler).

D'avance merci.








Avatar
papou
Re
Je ne peux toujours pas vérifier mais
- je ne suis pas certain qu'un contrôle de type msocontrolpopup puisse
accepter ce style de bouton (par contre msocontrolbutton pas de soucis)
- la valeur "blnBeginGroup" m'est inconnue ! Il me semble que la propriété
prend True ou False ?

Cordialement
Pascal


"RENAUD Eric" a écrit dans le message de news:

Merci de ta réponse mais j'ai testé avec le code suivant mais cela ne
fonctionne pas
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.FaceId = 71
.Style = msoButtonIcon
.TooltipText = "Choix du trimestre à imprimer."
End With
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Bien que je ne puisse pas tester maintenant, il me semble que tu dois
modifier la propriété style avec msobuttonicon et ne renseigner que la
propriété FaceID
Cordialement
Pascal

"RENAUD Eric" a écrit dans le message de
news:%
Bonjour,
J'ai crée une barre d'outils perso.
J'ai un cas avec un menu Popup intitulé "Imp. trimestre ?"
L'exemple
' Création menu
Set m = cb.Controls.Add(msoControlPopup, , , , True)
With m
.BeginGroup = blnBeginGroup
.Caption = "Imp. trimestre ?"
.Style = msoButtonIconAndCaption
.FaceId = 71
.TooltipText = "Choix du trimestre à imprimer."
End With

Au lieu d'écrire "Imp. trimestre ?", j'aimerai pouvoir mettre une icône
à


la
place comme par exemple les icônes dans la barre d'outils Standard et
representées sous forme de flèche vers la gauche ou vers la droite et
qui


permettent de revenir en arrière ou en avant (Rétablir et Annuler).

D'avance merci.