Reduire taille image dans un label

Modeste geedee

XLDnaute Barbatruc

• 3 Octobre 2014

• #2

Re : Reduire taille image dans un label

Bonsour®

carlos à dit:

Bonjour,
Saves vous comment reduire la taille d'une image insérée dans un label1?
J'essayé ceci mais ca bug :
Label1.Picture.Height = 60 ' pour un label1 de 68 de height
Erreur d'execution 438 : propriete ou methode non gérée par cet objet .

Cliquez pour agrandir...

Label1.Autosize=True ' -------------le label s'adapte a la dimension du contenu
Label1.PicturePosition=12 '---------l'image est centrée

🙁 il faut donc redimensionner préalablement l'image...🙄

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 4 Octobre 2014

• #3

Re : Reduire taille image dans un label

Bonjour Modeste Geedee,le forum
donc il ne sera pas possible d'avoir une image plus petite que la taille de mon Label?
L’intérêt pour moi est de voir la couleur de mon Label qui change en fonction du nombre de clics qu'on fait sur lui.
un clic il est vert
2 clics jaune
3 clics rouge
si j’insère une image sur ce label , je ne verrai plus les couleurs qui pour moi sont essentielles .
Comment faire ?Avez vous une idée?
Merci
Carlos

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 4 Octobre 2014

• #4

Re : Reduire taille image dans un label

Bonsour®

il faut redimensionner préalablement l'image...!

Cliquez pour agrandir...

 

Pièces jointes

• Capture.JPG

  67 KB · Affichages: 77
• Capture.JPG

  67 KB · Affichages: 77
• carlos.xlsm

  103.2 KB · Affichages: 75

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 5 Octobre 2014

• #5

Re : Reduire taille image dans un label

Bonjour,
je ne comprends pas très bien.
Il faut que je réduise la taille de mon image dans mon fichier source ? j'ai essayé mais ca ne change rien
ou
que j'importe l'image sur une feuille excel .Q'ensuite je la réduise puis l'importe dans le label de mon userform?
Cordialement
Carlos

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Octobre 2014

• #6

Re : Reduire taille image dans un label

Bonsour®

carlos à dit:

Bonjour,
je ne comprends pas très bien.
Il faut que je réduise la taille de mon image dans mon fichier source ? j'ai essayé mais ca ne change rien

Cliquez pour agrandir...

Non il faut utiliser une copie réduite(à la taille de ton label) de ton fichier source...
c'est une pratique courante en imagerie numérique : à chaque image on fait correspondre son "thumbnail"(*)
cela permet entre-autre de pré-visualiser une image, qui dans sa taille réelle peut être très longue à charger .

quant à l'importer dans Excel :
utilise la propriété picture du label :
- soit par la fenêtre propriété

- soit par VBA Label1.Picture = LoadPicture("c:\Chemin\MonImage.bmp")

(*) thumbnail :
Une miniature ou vignette ou imagette, encore désignée par l'anglicisme thumbnail ou son apocope thumb (littéralement « ongle de pouce », en référence à sa taille), est, en informatique, une version d'une image dont la taille est réduite par rapport à l'original. En principe, cliquer sur une miniature dirige vers l'image dans sa version normale, par exemple au moyen d'un hyperlien.

 

Pièces jointes

• Capture.JPG

  65.7 KB · Affichages: 94
• Capture.JPG

  65.7 KB · Affichages: 83

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 5 Octobre 2014

• #7

Re : Reduire taille image dans un label

Re
en faite si l'image est plus petite que le label alors elle ne prendra pas toute la place du label.C'est ça sur le principe?

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Octobre 2014

• #8

Re : Reduire taille image dans un label

salut

et avec 2 contrôles groupés (avec gestions indépendantes en mode création) ?

 

Pièces jointes

• Label Image.xls

  273.5 KB · Affichages: 64

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 5 Octobre 2014

• #9

Re : Reduire taille image dans un label

Bonjour Si...
Merci pour ta réponse mais je veux l’insérer dans un label d'un userform avec une taille de l'image + petite que la taille de mon USF.

Merci.

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 5 Octobre 2014

• #10

Re : Reduire taille image dans un label

Re Modeste Geede et Si...,
Voici un résumé de ce fil .
Selon Modeste Geedee le seul moyen de réduire la taille d'une image dans un label d' un USF est de reduire l'image à sa source.
Et ca marche .Voir en Piece jointe.
Existe t'il un moyen de reduire la taille dans le label sans reduire l'image à sa source en jouant sur sa propriété "Height"et "Width"
Mon probleme est que le fichier que je crée sera utilisé par des néophytes qui ne sauront pas forcément reduire leurs images à leurs sources.
Cordialement
Carlos

 

Pièces jointes

• Taille reduite de l'image dans Label.xlsm

  21.5 KB · Affichages: 62
• Taille reduite de l'image dans Label.xlsm

  21.5 KB · Affichages: 57
• Etoile de mer 2.jpg

  65.7 KB · Affichages: 68
• Taille reduite de l'image dans Label.xlsm

  21.5 KB · Affichages: 52
• Etoile de mer.jpg

  1.3 KB · Affichages: 96
• Etoile de mer 1.jpg

  3.1 KB · Affichages: 76

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 5 Octobre 2014

• #11

Re : Reduire taille image dans un label

Re

ce peut être la même démarche :

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 5 Octobre 2014

• #12

Re : Reduire taille image dans un label

Dans mon exemple et avec l'idée de Si...

Label1.Picture = LoadPicture(ThisWorkbook.Path & "\Etoile de mer.jpg")
Label1.Picture.PictureSizeMode = fmPictureSizeModeStretch

Ca plante

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Octobre 2014

• #13

Re : Reduire taille image dans un label

Bonsour®

carlos à dit:

Re Modeste Geede et Si...,
Voici un résumé de ce fil .
Selon Modeste Geedee le seul moyen de réduire la taille d'une image dans un label d' un USF est de réduire l'image à sa source.
Et ca marche .Voir en Piece jointe.

Cliquez pour agrandir...

🙄 à ma connaissance pas d'autre solution...🙁

😉 Sauf a faire une usine à gaz à l'aide d'APIs pour réduire à la volée l'image initiale

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Octobre 2014

• #14

Re : Reduire taille image dans un label

bonsoir tous 🙂🙂🙂

as tu essayer d'utiliser un frame a la place d'un label peut etre plus simple

un frame est un container comme user ou multipage

Code:

Frame1.Picture = LoadPicture(ThisWorkbook.Path & "\Etoile de mer 2.jpg")
 Frame1.PictureSizeMode = 1

autrement un frame dans un frame celui a l'interieur contient l'image la plus grande apres tu redimensionne ce frame avec des clics assez facile a construire le frame parent contient eventuellement la couleur que tu veus changer

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 6 Octobre 2014

• #15

Re : Reduire taille image dans un label

re tous🙂

un exemple avec un frame dans un frame code tres brut

 

Pièces jointes

• Taille reduite de l'image dans Label.xlsm

  23.9 KB · Affichages: 52
• Taille reduite de l'image dans Label.xlsm

  23.9 KB · Affichages: 60
• Taille reduite de l'image dans Label.xlsm

  23.9 KB · Affichages: 68

Vote positif 0 Vote négatif