Insérer une image via un imagelist
Bonjour,
deuxième tentative lol, la première ne semble pas avoir fonctionnée :mouarf:
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:
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
