Discussion :

[philguio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Maxence HUBICHE]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Plage = Range("B18")

à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("B18").Select()

non ?

[philguio]

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

[SilkyRoad]

bonjour

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

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

michel

[ouskel'n'or]

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

[Maxence HUBICHE]

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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