Reduire taille image dans un label

[carlos]

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 .

Merci
Carlos

 

[Modeste geedee]

Re : Reduire taille image dans un label

Bonsour®

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 .

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...🙄

 

[carlos]

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

 

[Modeste geedee]

Re : Reduire taille image dans un label

Bonsour®

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

 

[carlos]

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

 

[Modeste geedee]

Re : Reduire taille image dans un label

Bonsour®

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

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.

 

[carlos]

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?

 

[Si...]

Re : Reduire taille image dans un label

salut

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

 

[carlos]

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.

 

[carlos]

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

 

[Si...]

Re : Reduire taille image dans un label

Re

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

 

[carlos]

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

 

[Modeste geedee]

Re : Reduire taille image dans un label

Bonsour®

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.

🙄 à 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

 

[laetitia90]

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

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

 

[laetitia90]

Re : Reduire taille image dans un label

re tous🙂

un exemple avec un frame dans un frame code tres brut