Bouton sur barre d'outils accès rapide

Le
ThePro
Bonjour,

J'ai ajouté quelques commandes sur ma "barre d'outils accès rapide" mais
elles ont toutes le même bouton (un cercle vert). Est-il possible de
modifier ce boiton pour quelque chose de plus intuitif ?

Merci.

ThePro
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
Philippe.R
Le #4743001
Bonsoir,

Une paire de piste :

http://www.excelabo.net/excel/boutons.php#editeurbouton

http://www.excelabo.net/excel/boutons.php#faceidboutons

entre autres, mais d'auteurs choisis ! ;o)))
--
Avec plaisir
Philippe.R
"ThePro" news:
Bonjour,

J'ai ajouté quelques commandes sur ma "barre d'outils accès rapide" mais
elles ont toutes le même bouton (un cercle vert). Est-il possible de
modifier ce boiton pour quelque chose de plus intuitif ?

Merci.

ThePro


claudy
Le #4742891
Bonjour,
je me suis rendu sur ce lien cité plus bas:
http://www.excelabo.net/excel/boutons.php#editeurbouton
Misange y parle d'une .xla.
En faisant une recherche sur la toile, via google, le site est introuvable!
Est ce qu'il y aurait une bonne âme pour me guider vers une autre adresse ou
m'envoyer cette .xla, ?
Merci d'avance,
Claudy

"Philippe.R" uwaCATJ$
Bonsoir,

Une paire de piste :

http://www.excelabo.net/excel/boutons.php#editeurbouton

http://www.excelabo.net/excel/boutons.php#faceidboutons

entre autres, mais d'auteurs choisis ! ;o)))
--
Avec plaisir
Philippe.R
"ThePro" news:
Bonjour,

J'ai ajouté quelques commandes sur ma "barre d'outils accès rapide" mais
elles ont toutes le même bouton (un cercle vert). Est-il possible de
modifier ce boiton pour quelque chose de plus intuitif ?

Merci.

ThePro





Philippe.R
Le #4742811
Bonjour Claudy,

Sur Excelabo, il y a aussi ceci, à adapter bien sur :

"Comment personnaliser l'image d'un bouton d'une barre d'outil à partir du
VBA ? Faut-il absolument une bmp 32*32, où y-a-t-il une autre solution pour
incorporer cette image ?
Tu inseres une image dans une feuille(ici: FeuilleImage)
(En JPG GIF...ou autre, attention à la taille quand même)
Image 1 est le nom de l'image (Insertion-Nom-Definir)
et voilà le code pour personnaliser!"

Set ABP = Toolbars("BarreOutil1").ToolbarButtons 'ou
' CommandBars !!!
ABP.Add Button: 9, Before:=1, OnAction:="Action4", _
Enabled:=True, Pushed:úlse
ABP(1).Name = "TestImage"
Worksheets("FeuilleImage").DrawingObjects("Image _
1").Copy
ABP(1).PasteFace 'position du bouton
'Daniel Josserand, (N°84)

Ou encore ce lien à visiter :

http://frederic.sigonneau.free.fr/code/BO/BOAvecIconePersonnalisee.txt
--
Avec plaisir
Philippe.R
"claudy" de news:46f4af61$0$13854$
Bonjour,
je me suis rendu sur ce lien cité plus bas:
http://www.excelabo.net/excel/boutons.php#editeurbouton
Misange y parle d'une .xla.
En faisant une recherche sur la toile, via google, le site est
introuvable!
Est ce qu'il y aurait une bonne âme pour me guider vers une autre adresse
ou m'envoyer cette .xla, ?
Merci d'avance,
Claudy

"Philippe.R" uwaCATJ$
Bonsoir,

Une paire de piste :

http://www.excelabo.net/excel/boutons.php#editeurbouton

http://www.excelabo.net/excel/boutons.php#faceidboutons

entre autres, mais d'auteurs choisis ! ;o)))
--
Avec plaisir
Philippe.R
"ThePro" news:
Bonjour,

J'ai ajouté quelques commandes sur ma "barre d'outils accès rapide" mais
elles ont toutes le même bouton (un cercle vert). Est-il possible de
modifier ce boiton pour quelque chose de plus intuitif ?

Merci.

ThePro









Misange
Le #4742451
hello
regarde sur cette page si tu trouves ton bonheur
http://www.erlandsendata.no/english/index.php?d=endownloadcommandbars
cela dit, reprends aussi cette réponse de Jacques Boisgontier

Sous 2007, ce pgm crée dans l'onglet 'Compléments' 2 boutons qui
seront permanents.

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"

Set bouton CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub macro1()
MsgBox "Macro1"
CommandBars.ActionControl.State = msoButtonDown
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

-Masquer le classeur qui contient les macros et masquer le code.

-Pour Supprimer les boutons de l'onglet 'Compléments' :

CommandBars("BarreBoutons").Delete



Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour,
je me suis rendu sur ce lien cité plus bas:
http://www.excelabo.net/excel/boutons.php#editeurbouton
Misange y parle d'une .xla.
En faisant une recherche sur la toile, via google, le site est introuvable!
Est ce qu'il y aurait une bonne âme pour me guider vers une autre adresse ou
m'envoyer cette .xla, ?
Merci d'avance,
Claudy

"Philippe.R" uwaCATJ$
Bonsoir,

Une paire de piste :

http://www.excelabo.net/excel/boutons.php#editeurbouton

http://www.excelabo.net/excel/boutons.php#faceidboutons

entre autres, mais d'auteurs choisis ! ;o)))
--
Avec plaisir
Philippe.R
"ThePro" news:
Bonjour,

J'ai ajouté quelques commandes sur ma "barre d'outils accès rapide" mais
elles ont toutes le même bouton (un cercle vert). Est-il possible de
modifier ce boiton pour quelque chose de plus intuitif ?

Merci.

ThePro








Publicité
Poster une réponse
Anonyme