Dans Excel j'ajoute un menu personnalis=E9 de la facon=20
suivante.
-------------------------------------------------
Set Bar_Perso =3D CommandBars.Add(Name:=3D"Menu Biomedix",=20
Position:=3DmsoBarTop, Temporary:=3DTrue)
Bar_Perso.Visible =3D True
Set Menu1 =3D Bar_Perso.Controls.Add
(Type:=3DmsoControlPopup, Temporary:=3DTrue)
=20
Menu1.Caption =3D "&Test"
Set Opt1 =3D Menu1.Controls.Add(Type:=3DmsoControlButton,=20
Temporary:=3DTrue)
-------------------------------------------------
Je voudrais pour chacun des champs de mon menu ajouter des=20
icones. Je ne peux qu'ajouter les icones parametrer dans=20
en excel par un index par exemple id:=3D3 correspond =E0 la=20
disquette d'enregistrement et si je ne mets pas de code=20
derriere ce menu, en cliquant dessus =E7a enregistrera=20
automatiquement. Ce que je voudrais faire c'est ajouter=20
des icones perso (juste pour le design)
D'avance je vous remercie pour votre aide !
"lucio" a écrit dans le message de news:094401c3d5d8$dbaf0b00$ Bonjour à tous et bonne année.
Dans Excel j'ajoute un menu personnalisé de la facon suivante. ------------------------------------------------- Set Bar_Perso = CommandBars.Add(Name:="Menu Biomedix", Position:=msoBarTop, Temporary:=True) Bar_Perso.Visible = True Set Menu1 = Bar_Perso.Controls.Add (Type:=msoControlPopup, Temporary:=True)
Menu1.Caption = "&Test"
Set Opt1 = Menu1.Controls.Add(Type:=msoControlButton, Temporary:=True) -------------------------------------------------
Je voudrais pour chacun des champs de mon menu ajouter des icones. Je ne peux qu'ajouter les icones parametrer dans en excel par un index par exemple id:=3 correspond à la disquette d'enregistrement et si je ne mets pas de code derriere ce menu, en cliquant dessus ça enregistrera automatiquement. Ce que je voudrais faire c'est ajouter des icones perso (juste pour le design) D'avance je vous remercie pour votre aide !
Bonjour/soir,
L'article suivant de la KB pourra peut-être servir:
http://support.microsoft.com/default.aspx?scid(8771
"lucio" <lucio@wanadoo.Fr> a écrit dans le message de
news:094401c3d5d8$dbaf0b00$a601280a@phx.gbl...
Bonjour à tous et bonne année.
Dans Excel j'ajoute un menu personnalisé de la facon
suivante.
-------------------------------------------------
Set Bar_Perso = CommandBars.Add(Name:="Menu Biomedix",
Position:=msoBarTop, Temporary:=True)
Bar_Perso.Visible = True
Set Menu1 = Bar_Perso.Controls.Add
(Type:=msoControlPopup, Temporary:=True)
Menu1.Caption = "&Test"
Set Opt1 = Menu1.Controls.Add(Type:=msoControlButton,
Temporary:=True)
-------------------------------------------------
Je voudrais pour chacun des champs de mon menu ajouter des
icones. Je ne peux qu'ajouter les icones parametrer dans
en excel par un index par exemple id:=3 correspond à la
disquette d'enregistrement et si je ne mets pas de code
derriere ce menu, en cliquant dessus ça enregistrera
automatiquement. Ce que je voudrais faire c'est ajouter
des icones perso (juste pour le design)
D'avance je vous remercie pour votre aide !
"lucio" a écrit dans le message de news:094401c3d5d8$dbaf0b00$ Bonjour à tous et bonne année.
Dans Excel j'ajoute un menu personnalisé de la facon suivante. ------------------------------------------------- Set Bar_Perso = CommandBars.Add(Name:="Menu Biomedix", Position:=msoBarTop, Temporary:=True) Bar_Perso.Visible = True Set Menu1 = Bar_Perso.Controls.Add (Type:=msoControlPopup, Temporary:=True)
Menu1.Caption = "&Test"
Set Opt1 = Menu1.Controls.Add(Type:=msoControlButton, Temporary:=True) -------------------------------------------------
Je voudrais pour chacun des champs de mon menu ajouter des icones. Je ne peux qu'ajouter les icones parametrer dans en excel par un index par exemple id:=3 correspond à la disquette d'enregistrement et si je ne mets pas de code derriere ce menu, en cliquant dessus ça enregistrera automatiquement. Ce que je voudrais faire c'est ajouter des icones perso (juste pour le design) D'avance je vous remercie pour votre aide !
