agrandit une image au passage de la souris

[Grégf]

Bonjour,
je souhaite qu'une image s'agrandisse quand je passe la souris dessus.
Je joints un fichier pour que ce soit plus parlant.
Merci, cordialement.

 

[riton00]

Bonsoir,

Une proposition avec un clic sur image pour zoomer + reclic pour diminuer

Slts

 

[job75]

Bonjour riton00,

Pour que survol de la souris ait un effet il faut que l'image soit un contrôle Image ActiveX.

Dans lequel on charge par exemple un fichier JPEG.

Il est facile (et je l'ai fait) de créer des fichiers JPEG à partir des "Pictures" que vous avez fournies mais ce que l'on obtient n'est pas de bonne qualité.

Il faudrait que vous alliez sur les sites web où vous avez pris vos images et téléchargiez les fichiers correspondants.

Mettez-les dans un dossier zip et déposez celui-ci sur ce fil.

A+

 

[Grégf]

Bonsoir,

Une proposition avec un clic sur image pour zoomer + reclic pour diminuer

Slts

Bonsoir,

Une proposition avec un clic sur image pour zoomer + reclic pour diminuer

Slts

Merci Riton, ça fonctionne super bien mais quand l'image s’agrandit on perd énormément en qualité.
J'ai essayé avec des photos de qualité ça fonctionne mais après enregistrement la qualité baisse de nouveau.
Il y a une raison ? En tout cas merci.

 

[Grégf]

Bonsoir,

Cf PJ

Bisson

Merci, j'ai des bugs l'image ne reprends pas toujours sa place ? Je ne sais pas si ça change grand chose mais je suis sur une version 2016 ? En attendant merci encore.

 

[Grégf]

Bonjour riton00,

Pour que survol de la souris ait un effet il faut que l'image soit un contrôle Image ActiveX.

Dans lequel on charge par exemple un fichier JPEG.

Il est facile (et je l'ai fait) de créer des fichiers JPEG à partir des "Pictures" que vous avez fournies mais ce que l'on obtient n'est pas de bonne qualité.

Il faudrait que vous alliez sur les sites web où vous avez pris vos images et téléchargiez les fichiers correspondants.

Mettez-les dans un dossier zip et déposez celui-ci sur ce fil.

A+

Bonsoir Job75, ci-joints les images en jpeg de meilleur qualité. Merci pour votre aide.

 

[riton00]

Re Grégf, Job75, BISSON Nicole

En fait j'ai constaté qu'en enregistrant le fichier en .xls la qualité est bien meilleurs mais le hic c'est que le poids du fichier gonfle aussi, voir p.j. 😱

Slts

 

[job75]

Bonsoir à tous,

Merci riton00 pour les fichiers JPEG.

Dans le fichier joint je les ai chargés dans les 5 contrôles images ActiveX.

Le survol de la souris déclenche l'évènement MouseMouve dans le Module de classe.

La classe est initialisée dans la Workbook_Open du ThisWorkbook.

Notez que si l'on modifie le VBA il faut fermer puis rouvrir le fichier.

Bonne nuit.

 

[job75]

Re,

Avec le survol de la souris c'est parfois laborieux chez moi (Excel 2013).

Voyez avec le clic sur l'image dans ce fichier (2).

Re-bonne nuit.

 

[Grégf]

Bonjour et merci à tous pour vos solutions.

 

[Grégf]

Re,

Avec le survol de la souris c'est parfois laborieux chez moi (Excel 2013).

Voyez avec le clic sur l'image dans ce fichier (2).

Re-bonne nuit.

Bonjour Job, cette solution me convient totalement, mais n'étant pas un expert je n'arrive pas à reproduire les effets quand je complète mon tableau. Pourrais tu m'expliquer la manip. Encore merci !!!

 

[job75]

Bonjour Grégf, le forum,

Veuillez m'excuser, je vous avais confondu avec riton00.

D'abord j'ai supposé que toutes les images doivent avoir les mêmes dimensions, si ce n'est pas le cas dites-le, je modifierai le code du module de classe.

Il est souhaitable que tous vos fichiers JPEG ne soient pas trop gros (quelques dizaines de ko suffisent), votre fichier 3 pèse 1,9 Mo ce qui explique le délai d'exécution de la macro.

Pour ajouter de nouvelles images dans la feuille :

- donner à toutes les lignes la hauteur 45

- copier la dernière image et la coller sur la cellule du dessous

- dans VBA passer en mode Création (menu Exécution)

- clic droit sur la nouvelle image => Propriétés => Picture et chargez le fichier JPEG adéquat

- dans VBA quitter le mode Création

- fermer et rouvrir le fichier.

Bonne journée.

 

[Grégf]

Bonjour Grégf, le forum,

Veuillez m'excuser, je vous avais confondu avec riton00.

D'abord j'ai supposé que toutes les images doivent avoir les mêmes dimensions, si ce n'est pas le cas dites-le, je modifierai le code du module de classe.

Il est souhaitable que tous vos fichiers JPEG ne soient pas trop gros (quelques dizaines de ko suffisent), votre fichier 3 pèse 1,9 Mo ce qui explique le délai d'exécution de la macro.

Pour ajouter de nouvelles images dans la feuille :

- donner à toutes les lignes la hauteur 45

- copier la dernière image et la coller sur la cellule du dessous

- dans VBA passer en mode Création (menu Exécution)

- clic droit sur la nouvelle image => Propriétés => Picture et chargez le fichier JPEG adéquat

- dans VBA quitter le mode Création

- fermer et rouvrir le fichier.

Bonne journée.

Super, merci beaucoup !!!
J'ai un peu ramé car il faut passer en mode création avant de pouvoir copier l'image ... mais ça fonctionne nickel !!! Encore mille fois merci à tous et bonnes fêtes à vous !

 

[job75]

Re,

Pour l'agrandissement par le clic le fichier (2) est trop compliqué et bien trop lourd.

Il suffit d'utiliser des Shapes.

J'ai d'abord compressé vos fichiers JPEG 2 3 5 qui étaient trop lourds.

Si vous n'avez pas de compresseur vous pouvez en télécharger un sur ce site :

http://www.commentcamarche.net/download/telecharger-34079919-pixillion

Ensuite par copier/coller j'ai créé les Shapes de ce fichier (3) et leur ai affecté cette macro :

Const coef! = 3 'coefficient d'agrandissement, modifiable

Sub Agrandir()
If IsError(Application.Caller) Then Exit Sub 'sécurité
With ActiveSheet.Shapes(Application.Caller)
  .LockAspectRatio = True 'conserve le rapport hauteur/largeur
  .TopLeftCell = IIf(.TopLeftCell = "", "a", "")
  .Height = 44 * IIf(.TopLeftCell = "", 1, coef)
  .Left = .TopLeftCell.Left + 0.5
  .Top = .TopLeftCell.Top + 0.5
  .ZOrder 0 'place l'image au 1er plan
End With
End Sub

A+

 

[Staple1600]

Bonsoir le fil, le forum

@job75
Jamais eu de soucis avec Pixillion?
http://www.makeuseof.com/tag/whats-problem-nch-software-remove/