Discussion :

[mekap]

Bonjour,

deuxième tentative lol, la première ne semble pas avoir fonctionnée


J'essaie via un petit prog VB6 d'insérer une image dans une cellule Excel.
J'y arrive via une image stockée sur le disque (cheminimage est l'adresse) et une commande Pictures.insert :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
emp.Activate
Set MonImage = sheet.Pictures.Insert(CheminImage)
With MonImage.ShapeRange
.LockAspectRatio = msoFalse
.Top = emp.Top + 2
.Left = emp.Left + 1
.Height = emp.Height - 4
.Width = 240 * lenght / lenghtmax
.Line.Visible = True
.Name = sheet.CodeName & "histo" & emp.Row
End With

Mon problème est que j'aimerai faire la même chose à partir d'une image stockée dans un controle Imagelist, mais que je n'y arrive pas ...

Quelqu'un aurait une suggestion ?
Merci d'avance

mekap

[Antoniom]

Hello,

Voici un lien qui pourra t'aider je pense.

Bon dimanche !

[mekap]

Merci,
j'ai bien trouvé ce lien, mais la méthode proposée par copie/paste d'une image était plus couteuse en temps de réponse.
Cordialement,