Une image dans une cellule

Bonsoir,
On peut essayer un truc comme çà:
En [C10] l'image sera inserée
le nom de l'image est recuperée dans la cellule B10 .
(nom = Selection.Offset(0, -1).Value)

ex : photo1 sans l'extension.
(fichimg = ActiveWorkbook.Path & "" & nom & ".jpg")

La largeur de l'image correspondra à la largeur de la cellule C10.
(With ActiveWindow
y = .Selection.Width
End With)
et
(Selection.ShapeRange.Width = y)
===================
Sub EssaiImage()
Dim nom$
Dim fichimg$
[C10].Select
With ActiveWindow
y = .Selection.Width
End With
On Error Resume Next
nom = Selection.Offset(0, -1).Value
fichimg = ActiveWorkbook.Path & "" & nom & ".jpg"
ActiveSheet.Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = y
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm
"gm" <gm@discussions.microsoft.com> a écrit dans le message de news:
F8DDA329-03A2-4733-945D-195A7BEF8BB9@microsoft.com...

Bonjour,
J'ai une petite appli Excel avec du code qui dessine un linéaire de
magasin.

Chaque cellule représente une case du linéraire. Jusqu'à présent, je me
contentais de colorier la case et d'y mettre le nom du produit, son
prix,...

J'aimerais maintenant remplacer ces infos par une photo (jpeg) du produit
en

linéaire.
Est il possible d'affecter, au contenu d'une cellule , une image pour
l'afficher à la taille de la cellule ?
Merci du coup de main

--
gm