Afficher une photo sur un clic de souris

[christine]

Bonjour,

Je voudrais faire une manipulation sous excel mais je ne sais pas si c'est possible:

Je voudrais qu'au survol par la souris d'une case du tableur, s'affiche (de manière décalée si possible) une image que j'aurais préalablement enregistrée dans excel.

C'est à dire que la photo (par exemple) doit être invisible en temps normal et s'afficher lorsque la souris passe sur une case donnée.

Est ce possible ?

Merci.

Christine

 

[David]

pas difficile du tout, il suffit d'inserer un commentaire et d'y inclure la photo de ton choix...

 

[David]

au cas ou tu ne saurais pas comment inclure la photo =

selectionne ta cellule
inserer commentaire
clique droit sur la bordure du commentaire
choisis "format"
onglet "couleurs et lignes"
pour remplissage (fill en anglais ), choisis la derniere categorie (fill effect)
choisis l'onglet image
insere l'image de ton choix


desole pour les traductions, je suis aux USA et j'ai la version americaine...

a+

 

[christine]

Génial ! merci.

J'étais partie à chercher avec des macro et vb...

J'avais bien pensé aux commentaires mais je ne savais pas que l'on pouvait cliquer dans la bordure et qu'au final on accédait aux images... J'avais cherché mais pas trouvé ma voie par là... fallait trouver.

Encore merci.

Christine.

 

[Lord Nelson]

Merci à Christine pour la question et à David pour la solution !
On en apprend tous les jours avec le forum XLD.

A+
Horatio

 

[Bil BOOL]

Elo !
Merci pour cette astuce, qui va m'être d'un grand recour pour mon annuaire mais pourrait-on automatisé cette tâche, j'ai plus de 500 photos...
Merci
++

 

[Lord Nelson]

Salut Bil Bool,

Voici une macro qui pourrait t'aider :

Sub Photos()
Dim Chemin As String, Fichier As String
Dim Compteur As Integer
Dim Cmt As Shape
'A adapter :
Chemin = "D:\hc\Photos\Famille\Biarritz-Octobre2004\"
Compteur = 4
Fichier = Dir(Chemin & "*.jpg")
Do While Fichier <> ""
'A adapter
Range("C" & CStr(Compteur)).Select

With Selection
'Facultatif - inscrire le nom de fichier dans la cellule
'.Value = Fichier
.AddComment
.Comment.Visible = False
.Comment.Text Text:=""
End With

With Selection.Comment.Shape

.Fill.Visible = msoTrue
.Fill.UserPicture Chemin & Fichier
'A adapter :
.Height = 180
.Width = 240

End With
Compteur = Compteur + 1
'Facultatif - limiter le nombre de photos à insérer
'If Compteur > 12 Then Exit Do
Fichier = Dir
Loop

End Sub

Attention à la mémoire, teste la macro d'abord sur un petit nombre de photos et observe la taille du fichier Excel !

A+
Horatio