insert image dans cellule

Bonjour

je cherche a ajouter ume image dans une cellule excel, ça marche sans gros pb. Toute fois l'image déborde, donc il faut la reduire !!!!!

Voila mon code avec un essai qui ne donne pas satisfaction

Code:

---

1 2 3 4 5 6 7 8 9

If Me.TG16.Text = "G" Then Dim Plage As Excel.Range a16 = "G" .Range("B18").Select() appExcel.ActiveSheet.Pictures.Insert("C:\Image chiffre\16.bmp", CSng(Plage.Left), CSng(Plage.Top), 13, 13).Select() .Range("H18").Select() appExcel.ActiveSheet.Pictures.Insert("C:\Image chiffre\16.bmp", ).Select() End If

---

message d'erreur" La référence d'objet n'est pas définie à une instance d'un objet."
merci pour votre aide
@+
Phil

Peut-être qu'il faudrait mettre plutôt

Code:

---

1 2	Set Plage = Range("B18")

---

à la place de

Code:

---

.Range("B18").Select()

---

non ?

Bonjour
merci pour la réponse. Mais ça ne fonctionne pas ( je travaille avec VB 2005 exp) . L'image que je veux mettre dans la cellule a des dimensions trop grandes par rapport à la taille de la cellule, donc je cherche à la redimensioner por qu'elle tienne dans la cellule.

Merci par avance

@+
Phil

bonjour

j'espère que ce lien pourra t'aider

http://excel.developpez.com/faq/?pag...InsertionImage

michel

Je profite de ce post pour poser une question qui me taraude : On peut ou on ne peut pas insérer une image dans une cellule ?
Pour ma part, j'ai toujours pensé qu'on pouvait insérer une image sur une cellule, lui donner la taille de la cellule, mais qu'on ne pouvait pas insérer une image dans une cellule.
Puisque tu es dans le coin, Michel, qu'en est-il de la vérité vraie sur l'insertion d'une image dans une cellule ?
J'aimerais pouvoir répondre "On ne peut pas insérer un image DANS une cellule, mais on peut le faire dans une feuille de calculs, SUR un cellule !"
Jusque là, bien que je n'aie jamais eu la réponse, j'ose pas :(

On ne peut pas insérer un image DANS une cellule, mais on peut le faire dans une feuille de calculs, SUR un cellule !



:lol: :lol: :lol:
:lol: :lol: :lol:
:lol: :lol: :lol:

N'empêche que tu ne réponds pas :langue:
Quand je fais

Code:

---

Cells(1,1) = "Tu l'as vue, ma langue ?"

---

J'insère un string dans la cellule
Mais quand je fais

Code:

---

Cells(1,1) = Pictures.Insert("C:\Mes images\MPj04038430000[1].jpg")

---

J'insère... un bug !
Et pourtant, l'image existe bien. La preuve : Pièce jointe 14619

:mouarf: :mouarf: :mouarf:
:mouarf: :mouarf: :mouarf:
:mouarf: :mouarf: :mouarf: