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

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/02/2017, 11h48
patricktoulon

1 pièce(s) jointe(s)

re

re
Bonjour si tu veux des truc fun pour ton usf
regarde bien ce qui suit
si tu le veux je te donne un fichier en exemple
Pièce jointe 240738
et tout ca sans importer une seule image ;)
02/02/2017, 13h37
eliot.raymond

Salut Patrick,

Merci pour ta réponse, ca m'a l'air bien sympa ton programme.

ca me donne envie d'essayer :D alors ok pourquoi pas, je regarderais comment c'est fait.

Quand tu a le temps, pas presser, merci pour la démo.

bonne après midi et a plus tard.

Cdlt Ray
03/02/2017, 14h53
patricktoulon

re

Bonjour elliot
pour commencer en ce qui concerne les icones

pour le coup j'ai fouillé mes archives vba et réuni toute les façons de mettre une icone dans un label ou commandbuton

j'ai donc fait une compil démo DANS CETTE CONTRIBUTION

JE FERAIS UNE COMPIL SIMPLIFIER POUR LA TRANSFORMATION DES BOUTON/LABELS AVEC GIF,PNG,SHAPES y compris les texturation, dégradés de couleur etc....
bonne lecture
tu a un fichier en démo dans la contrib
;)
04/02/2017, 08h26
unparia

Bonjour eliot.raymond
Regarde bien le "décor" de la présente page du site (ou les autres) : il est sobre, frugal, discret et efficace. Cette page serait beaucoup moins agréable en agrémentant ses onglets, ses boutons, etc ... de toutes sortes de "bébelles" (formes, images, couleurs, animations, etc ...) qui finiraient pas être contreproductives, voire carrément rébarbatives.
Amitiés.
04/02/2017, 12h44
patricktoulon

1 pièce(s) jointe(s)

re

Bonjour
oui c'est vrai unparia a raison le skin de DVP et bien pour les yeux par rapport a l'ancien

Pièce jointe 241398

:ptdr::ptdr::lefou:

Bonsoir.

pour faire plus simple, tu peux aussi utiliser les FaceID intégrés dans Office

essayes ceci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub IDiconeDansControl() 'Icones dans les boutons de commande: à placer dans le UserForm
On Error Resume Next 
Dim Cmb As CommandBarControl
Dim cBar As CommandBar
    Set cBar = CommandBars.Add(Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
    Set Cmb = cBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
 
 
    'Pour les FaceID Tu peux aller sur http://fring.developpez.com/vba/excel/faceid/
    'pour plus d'icone et personnaliser l'appli
 
 
    'Avant tout faire un clique droit sur les Objets qui prendront  une icone, et dans
    'les propriétés pictureposition, spécifier la position de l'icone (fmPicturePositionLeftCenter par exemple)
    'Activer la procédure à l'initialisation de l'Usf par Call IDiconeDansControl
 
    'Appliquer ce code pour ajouter autant d'icone que possible dans les controles
    CommandButton1.FaceId =1087 'pour croix valider
    Me.CommandButton1.Picture = Cmb.Picture
 
    'autre objets(.........
 
   .Picture = Cmb.Picture
    cBar.Delete
 
On Error Goto 0
End Sub

04/02/2017, 19h13
patricktoulon

re

re
Bonsoir TSAFACK-M
exemple déjà démontré dans cette contribution
04/02/2017, 19h23
TSAFACK-M

Oups !!

Trop tard pour une modeste contribution.

Merci du rappel !

Salut ! :coucou:
04/02/2017, 19h29
patricktoulon
c'est pas grave
pat contre tu n'est pas intervenu pour rien
je vais t'apprendre quelque chose
les bars floating,top ne servent plus a rien depuis office 2007

d'ailleurs selon les mises a jour et system ton exemple ne marche pas
tandis qu'avec une commandbarpopup ca marche a tout les coup

re
d'ailleurs je ne l'ai pas mentionner auparavant mais si tu connais le ID du bouton que tu veux

tu peut te passer de te servir d'une barre temporaire !!!
Code:

1 2 3 Private Sub Label1_Click() With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With End Sub
05/02/2017, 10h25
eliot.raymond

Citation:

Envoyé par unparia

Bonjour eliot.raymond
Regarde bien le "décor" de la présente page du site (ou les autres) : il est sobre, frugal, discret et efficace. Cette page serait beaucoup moins agréable en agrémentant ses onglets, ses boutons, etc ... de toutes sortes de "bébelles" (formes, images, couleurs, animations, etc ...) qui finiraient pas être contreproductives, voire carrément rébarbatives.
Amitiés.

Salut unparia

Rien a redire sur l'aspect du site, tous les gouts sont dans la nature.

Pour ma part et comme je l'ai déjà dit sur le site, j'essais, je cherche, je regarde comment ca marche, etc etc, je ne suis pas créateur de logiciel.
et je sais très bien qu'avant tout Excel est un tableur mais puisque des possibilités sont possibles autant sans servir.

Je fais des petits programmes utiles pour moi, c'est tout

et puis mes questions peuvent servir aux autres.

Bon dimanche a tous. :lol:

Cdlt Raymond
05/02/2017, 10h35
eliot.raymond
Citation:
Envoyé par patricktoulon

re
d'ailleurs je ne l'ai pas mentionner auparavant mais si tu connais le ID du bouton que tu veux

tu peut te passer de te servir d'une barre temporaire !!!

Code:

1 2 3 Private Sub Label1_Click() With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With End Sub
Salut Patrick,

Merci beaucoup pour toutes ces infos et démos.

C'est quand même pas des plus simples, sans aucun doute pour toi :lol: mais moi j'ai un peu de mal a suivre.

Ceci dit c'est très bien ces démos, félicitations.

Mais je n'ai pas envie d'une usine a gaz pour 1 bouton ou un label, encore un ca va mais imagine plusieurs
le code pour gérer tous ça va vite devenir énorme.

Je voulais juste agrémenter mon programme avec une image, ou un gif mais bon j'ai vu.

Encore merci a toi Patrick pour les démos et ton savoir partager.

Je te souhaite un agréable dimanche

Bien Cordialement Raymond
06/02/2017, 20h04
TSAFACK-M
Bonsoir

Merci de m'en apprendre davantage, c'est super sympa de ta part !
cette façon de procéder est beaucoup plus simple et explicite, je l'adopte
avec assurance.
Code:

1 2 3 4 Private Sub Label1_Click() With Label1: .Picture = CommandBars.FindControls(ID:=115)(1).Picture: .PicturePosition = 1: End With End Sub
Bon debut semaine ! :chin::salut:

Voir 40 message(s) de cette discussion en une page