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.

 

[job75]

Bonsoir Jean-Marie,

Jamais eu de soucis avec Pixillion?

Tu sais je ne passe pas mon temps à compresser des images alors j'en ai rien à cirer 🙂

A+

 

[Staple1600]

Re

@job75
C'était simplement à titre d'information et de prévention.
Après ce qu'on peut lire on dirait bien un malware, non ?
(d'où ma précédente question)
Donc autant le savoir avant de l'installer 😉

 

[job75]

Bonjour Grégf, le fil, le forum,

Le survol de la souris est une excellente méthode si l'on utilise des commentaires.

Pas besoin de VBA, chaque commentaire peut être créé manuellement en chargeant le fichier JPEG dans les motifs de la couleur du remplissage.

Mais pour plus de facilité on lancera cette macro :

Sub Commentaires()
Dim c As Rangex
[C:C].ClearComments
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 1)
  c(1, 3).AddComment
  With c(1, 3).Comment.Shape
    .Visible = False
    .Width = 87 'à adapter
    .Height = 135 'à adapter
    .Fill.UserPicture ActiveWorkbook.Path & "\" & c & ".jpg"
  End With
Next
End Sub

Tous les fichiers doivent être dans le même répertoire, sinon adapter le chemin d'accès.

Fichier .xlsx (sans macros) joint, il ne pèse pas lourd.

Bonne journée.

 

[job75]

Re,

Ceci est mieux car on conserve le ratio largeur/hauteur de l'image d'origine :

Sub Commentaires()
Dim c As Range, chemin$, im As Object, r#
Application.ScreenUpdating = False
[C:C].ClearComments
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 1)
  chemin = ActiveWorkbook.Path & "\" & c & ".jpg"
  Set im = LoadPicture(chemin)
  r = im.Width / im.Height 'ratio
  c(1, 3).AddComment
  With c(1, 3).Comment.Shape
    .Visible = False
    .Height = 135 'à adapter
    .Width = r * .Height
    .Fill.UserPicture chemin
  End With
Next
End Sub

Fichier (2).

A+

 

[Grégf]

Re,

Ceci est mieux car on conserve le ratio largeur/hauteur de l'image d'origine :

Sub Commentaires()
Dim c As Range, chemin$, im As Object, r#
Application.ScreenUpdating = False
[C:C].ClearComments
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 1)
  chemin = ActiveWorkbook.Path & "\" & c & ".jpg"
  Set im = LoadPicture(chemin)
  r = im.Width / im.Height 'ratio
  c(1, 3).AddComment
  With c(1, 3).Comment.Shape
    .Visible = False
    .Height = 135 'à adapter
    .Width = r * .Height
    .Fill.UserPicture chemin
  End With
Next
End Sub

Fichier (2).

A+

Bonsoir JOB 75,
Merci pour les explications détaillées (mon tout petit niveau fait que j'en avais vraiment besoin !).
Du coup mon coeur balance et il va falloir que je fasse mon choix.
Encore mille fois merci pour tout ce travail et bonne soirée.

 

[Grégf]

Bonjour,

Avec images externes pour éviter classeur volumineux.



Bisson

Bonsoir et merci pour le travail mais ça ne fonctionne pas ... les images n'apparaissent pas dans l'exemple ?
Merci quand même pour le temps consacré mais je vais garder une des solutions de Job75.
Bonne soirée et encore merci !!!

 

[derk]

Bonsoir,

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

Slts

bonsoir riton00, je sais que ma question vient 3ans apres tonposte mais je desespere un peu
ton code est juste parfait par contre est ce qu'il y a oen de faire en sorte que :
1 le code ne s'applique qu'aux images et pas aux boutons (controle de formulaire) ?
2 quand on clique sur l'image pour l'agandir, est ce que cette dernière peut s'afficher au centre de l'ecran ?et pas à partir du TopLeftCell
je joins ton fichier posté en 2017 &u cas où 🙂

 

[derk]

bonsoir riton00, je sais que ma question vient 3ans apres tonposte mais je desespere un peu
ton code est juste parfait par contre est ce qu'il y a oen de faire en sorte que :
1 le code ne s'applique qu'aux images et pas aux boutons (controle de formulaire) ?
2 quand on clique sur l'image pour l'agandir, est ce que cette dernière peut s'afficher au centre de l'ecran ?et pas à partir du TopLeftCell
je joins ton fichier posté en 2017 &u cas où 🙂

rebonjour,
j'au pu solutionné la 1ere problématique
maintenant je tourne en rond pour la 2nd : quand on clique sur l'image pour l'agrandir, est ce que cette dernière peut s'afficher au centre de l'écran ?