Comment insérer un icone dans un commandbutton ou un label

**eliot.raymond** · 29/01/2017, 18h03

Bonsoir a tous ,forum bonsoir

Je souhaiterai svp savoir comment faire ou un exemple pour insérer une icone de mon choix
dans un bouton et ou un label.

c'est juste pour enjoliver mon programme.

Merci pour votre aide, bonne soirée a vous.

Cdlt Ray

**joe.levrai** · 29/01/2017, 18h31

Bonjour,

je préfère personnellement remplacer mon bouton ou mon label directement par l'image (Shape ou Contrôle Image), et c'est elle qui porte la procédure Clic (à la place du bouton) ou la propriété .Caption (à la place du label) ... par exemple

**eliot.raymond** · 29/01/2017, 18h54

Bonsoir joe.levrai

Merci pour ta réponse,

Je n'ai pas eu l'occasion d'utiliser (Shape ou Contrôle Image) a la place de label ou bouton.

Si tu a un lien ou un exemple cela m'aidera a comprendre ce comment faire, car a vrai dire, pas trop compris.

Merci pour ton aide, une bonne soirée a toi.

Cdlt Ray

**patricktoulon** · 29/01/2017, 21h42

bonsoir elliot
ton icone c'est un fichier icone ".ico" ou un de bouton dans la commandbars ou l'iconne d'un tout autre fichier??????????

**eliot.raymond** · 30/01/2017, 06h37

Salut Patrick,

Merci pour ta réponse,

J'ai fini mon programme et je voulais un commandbutton simple avec une icone dedans pour faire joli.

Ce commandbutton me sert quand je clic dessus a sortir de mon USF

Pour les icones des simples je vais en chercher déjà vu pleins reste a choisir.

Comme je ne sais encore comment faire, je vais chercher des exemples de code.

Toutefois si pas trop compliquer (au plus simple) alors j'agrémenterai mon programme avec d'autres buttons/labels.

J'ai choisi un commandbutton pour le clic et de faire une action et un Label histoire de faire beau.

Merci de ton aide, passe une agréable journée.

Cdlt Ray

**joe.levrai** · 30/01/2017, 06h53

Dans la boite à outil où tu choisis les contrôles à placer sur ton formulaire (commandbutton, optionbutton, combobox etc...), il y a un contrôle "Image" qui ressemble à un cadre contenant une espèce de colline et un soleil

tu le places sur le userform et tu peux charger une image située sur ton ordinateur en utilisant l'option Picture dans la fenêtre de propriétés

ensuite, étant un contrôles, double-clic dessus et ça va créer la procédure qui se lancera quand tu cliqueras dessus

Code :

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

1
2
3
Private Sub Image1_Click()
 
End Sub

tu n'as plus qu'à y incorporer ta procédure

**eliot.raymond** · 30/01/2017, 08h32

[Salut joe.levrai

Merci pour ta réponse c'est sympa,

je vais essayer ca de suite, heu, non après le café pour énerver mes neurones LOL

merci a toi, a plus tard

Cdlt Ray

**eliot.raymond** · 30/01/2017, 15h48

RE Salut

Bon j'ai effectuer des essais insertion d'icone

par contre j'ai mis une icone gif animé l'icone ne s'anime pas
sans doute qu'il y a un code a mettre mais je n'ai pas trouver quoi ???.

Merci pour l'aide apporter

Cdlt Ray

Code :

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

1
2
3
4
Private Sub Image1_Click()
            Unload Me
            Sheets("feuil1").Select
End Sub

**joe.levrai** · 30/01/2017, 15h55

Un Gif animé ?

olala, tu cherches la complication

mais puisque tu y tiens

http://silkyroad.developpez.com/VBA/ExcelImageGIF/

**eliot.raymond** · 30/01/2017, 18h16

Re salut

Alors j'ai mis un WebBrowser1 dans mon USF mis le code ci-dessous et c'est bon ca fonctionne.
mon icone animé (Archives.gif) s'anime bien.

Maintenant je ne peux pas cliquer dans le WebBrowser1 pour fermer mon USF

Code :

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

1
2
Unload Me 
Sheets("feuil1").Select

Comment est-il possible de faire si toutefois c'est faisable ???

Merci pour l'aide

Cdlt Raymond

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
   Dim Imag1 As String, Haut As Integer, Larg As Integer
 
   With UserForm1                'Affichage de l'image Gif animer WebBrowser(1)
 
        Larg = WebBrowser1.Width * 60 / 60: Haut = WebBrowser1.Height * 60 / 60
        Imag1 = "C:\Users\Raymond\Desktop\ColorLabel\Archives.gif"    'Image Archives.gif
 
        WebBrowser1.Navigate _
        "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & Larg & " HEIGHT=" & Haut & _
        " SRC='" & Imag1 & "'</IMG></BODY></CENTER></HTML>"
 
   End With
End Sub
 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub

**joe.levrai** · 30/01/2017, 18h34

Ce contrôle ne dispose pas d'évènement Click

mais pourquoi passer par un contrôle pour fermer le Userform ? Là où la croix de fermeture fait parfaitement le travail ?

Tu voulais un contrôle : ok tu avais un commandbutton
Tu voulais un visuel : ok, le contrôle image était cool
Tu voulais un visuel animé : sauf le tutoriel que je t'ai fourni et qui utilise un webcontrol, je ne connaissais aucune autre référence

Je ne vais pas me risquer à te proposer une solution où on va animer nous-même ton image en superposant les différents motifs du .Gif. C'est une usine à gaz à éviter quand on le peut.

**clementmarcotte** · 30/01/2017, 18h39

Bonjour,

Si c'est toujours comme dans "l'ancien temps", tu devrais pouvoir utiliser tes gif animés sans WebBrowser avec cette dll.

**eliot.raymond** · 30/01/2017, 18h49

Envoyé par joe.levrai

Ce contrôle ne dispose pas d'évènement Click

mais pourquoi passer par un contrôle pour fermer le Userform ? Là où la croix de fermeture fait parfaitement le travail ?

Tu voulais un contrôle : ok tu avais un commandbutton
Tu voulais un visuel : ok, le contrôle image était cool
Tu voulais un visuel animé : sauf le tutoriel que je t'ai fourni et qui utilise un webcontrol, je ne connaissais aucune autre référence

Je ne vais pas me risquer à te proposer une solution où on va animer nous-même ton image en superposant les différents motifs du .Gif. C'est une usine à gaz à éviter quand on le peut.

Re
oui je sais bien mais je fait des essais comme ca j'apprends

et c'est juste pour faire joli aussi mais effectivement je peux m'en passer

et pas envie d'usine a gaz

merci pour tes informations ca m'a permis de découvrir

bonne soirée a toi encore merci

Cordialement Ray

**eliot.raymond** · 30/01/2017, 18h55

Envoyé par clementmarcotte

Bonjour,

Si c'est toujours comme dans "l'ancien temps", tu devrais pouvoir utiliser tes gif animés sans WebBrowser avec cette dll.

Salut clément

Merci pour ta réponse, c'est sympa.

Donc si je comprends bien avec cette (dll) je pourrai mettre une icone gif dans un commandbutton, non oui

si svp tu a un petit exemple ca m'aiderai bien.

Merci a toi, je te souhaite la bonne soirée.

Cdlt Ray

**clementmarcotte** · 30/01/2017, 19h28

Bonjour,

En fait, cela fait trop longtemps.

Pour ce que je puisse me souvenir, on peut l'utiliser sur un UserForm. Pour une barre d'outils, cela resterait à voir.
Toujours selon mes souvenirs, tu pourrais l'utiliser comme un ActiveX ordinaire.

**eliot.raymond** · 30/01/2017, 19h38

Re clément

merci pour ta réponse, je vais chercher car je ne vois pas trop comment faire et aucune idée.

Merci tout de même, ca va se gater là, LOL

Bonne soirée a toi je reste a l'écoute

Cdlt Ray

Re clement

J'ai fait des recherches mais je n'ai pas trouver d'exemple pouvant utiliser la Dll dont tu m'a parler.
je l'ai télécharger et mis dans system32 en attente.

Merci bon app et a plus tard.

Cdlt Ray

**patricktoulon** · 31/01/2017, 20h36

Bonjour elliot

si tu a installé la dll gif89 tu a normalement dans tes controls supplémentaires dans ta boite a outils userform un control gif
voila

après je comprends plus très bien ta demande tu parlais d'icones dans tes bouton ou label

voici une démo que j'ai fait au plus simple pour te montrer 3 manières de mettre des icones avec le texte de tes labels ou commandbuttons

1°mettre une image de 20X20 maximum directement dans les propriété a gauche de VBE ou faire par vba un:

Code :

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

nom_control.picture=loadpicture=(" chemin de mon fichier")

et jouer avec le .texalign et .pictureposition des ces control

2° mettre un icone d'un bouton d'une commanbars quelconque du ruban dans le control (toute petite macro)

3° extraire un icone d'un fichier quelconque meme les ".exe" pour les placer dans les bouton ou label (utilisation des apis )

je te joins un fichier tout simple avec la démo en image animée ici même

voila

Nom : demo2.gif
Affichages : 4758
Taille : 317,8 Ko

Nom : demo2.gif
Affichages : 4758
Taille : 317,8 Ko

**eliot.raymond** · 01/02/2017, 16h40

Salut Patrick,

Merci pour toutes ces informations, et surtout les exemples.

C'est pas si simple que ca quand même, et ca fait usine a gaz, au moins j'aurai grâce a toi essayer et vu.
Je vais me dispenser d'iconnes animés pour mes commandbuttons

et revoir mes copies, je vais essayer de retrouver sur le site, il me semble avoir vu un gars qui avait mis
de belles décos dans ces commandbuttons.

En tout cas je te remercie encore une fois pour les exemples.

Bonne fin d'après midi a toi

Cdlt Ray

**patricktoulon** · 01/02/2017, 16h58

Re
Bonjour elliot
Usine a gaz de quoi.? Les macros font. Moins de 12lignes Pour chaque. Methode tu crois faire moins pour ce que tu veux ? Decidement je crois que tu t es vraiment mal exprimé sur ton souhait
Image ou icons ?????????????????
J aVais agrémenté. L exemplaire d autre petite chose mais je vais attendre que t a demande soit claire car a l jeure ou je te repond tout les chemins que tu a pris ne. Correspondent pas a ta demande

**eliot.raymond** · 01/02/2017, 19h14

Salut Patrick,

Baht oui, c'est vrai, je me suis laisser aller sur mon idée

j'ai fini un programme et j'ai voulu modifier pour agrémenter un peu et faire plus sympa.

insérer des icones dans des commandbuttons et puis j'ai penser qu'avec des icones.gif animés
ca serai encore plus réaliste.

mais quand on clic ca marche pas

Alors j'ai dériver sur autres possiblilités par ex (Label) WebBrowser mais quand un truc marche c'est l'autre qui marche pas.

Donc voila pour la dérive de ma demande, désoler.

Bonne soirée et merci a toi.

Cdlt Ray

Comment insérer un icone dans un commandbutton ou un label

Macros et VBA Excel

Discussions similaires

Partager

Partager