Bonjour à tous,
Je me prends la tête depuis des heures. grâce au forum j'ai enfin réussi à utiliser des images en icone pour un Treeview, donc, déjà, merci.
Vous l'aurez compris, j'utilise un Treeview et je charge des images en icone.
Mon souci, c'est que je développe un complément Excel. Afin d'éviter de devoir joindre les photos avec le complément j'ai eu idée de copier des images en OLEobject dans une feuille Excel du complément.
Mais je n'arrive pas à charger Treeview.ListImages avec les images de la feuille Excel.
Quelqu'un aurait'il une idée, soit pour charger une image d'une feuille Excel, soit pour ne pas avoir à envoyer les photos avec le complément?
voici le code:
Je vous remerci d'avance pour votre aide
smotty
Je me prends la tête depuis des heures. grâce au forum j'ai enfin réussi à utiliser des images en icone pour un Treeview, donc, déjà, merci.
Vous l'aurez compris, j'utilise un Treeview et je charge des images en icone.
Mon souci, c'est que je développe un complément Excel. Afin d'éviter de devoir joindre les photos avec le complément j'ai eu idée de copier des images en OLEobject dans une feuille Excel du complément.
Mais je n'arrive pas à charger Treeview.ListImages avec les images de la feuille Excel.
Quelqu'un aurait'il une idée, soit pour charger une image d'une feuille Excel, soit pour ne pas avoir à envoyer les photos avec le complément?
voici le code:
Code:
Sub ChargeImages()
Dim obj As OLEObject
With Me.ImageList1
.ListImages.Clear
.ImageHeight = 16 'Hauteur
.ImageWidth = 16 'Largeur
.ListImages.Add , "DocExcel", LoadPicture("C:\Users\Clement.SODIS\Pictures\docexcel.bmp")
.ListImages.Add , "ShExcel", LoadPicture("C:\Users\Clement.SODIS\Pictures\FeuilleExcel.bmp")
.ListImages.Add , "Repertoire", LoadPicture("C:\Users\Clement.SODIS\Pictures\Rep.bmp")
.ListImages.Add , "DocOutlook", LoadPicture("C:\Users\Clement.SODIS\Pictures\Outlook.bmp")
.ListImages.Add , "Tous", LoadPicture("C:\Users\Clement.SODIS\Pictures\Valider.jpg")
.ListImages.Add , "TousRepertoires", LoadPicture("C:\Users\Clement.SODIS\Pictures\TousRepertoires.bmp")
'c'est là que ça bloque...
Set obj = Feuil1.OLEObjects("Image 1")
.ListImages.Add , "Im1", obj.CopyPicture
Set Me.TreeView1.ImageList = Me.ImageList1
Set Me.TreeView2.ImageList = Me.ImageList1
End With
Set Me.TreeView1.ImageList = Me.ImageList1
Set Me.TreeView2.ImageList = Me.ImageList1
Set Me.TreeView3.ImageList = Me.ImageList1
End Sub
Je vous remerci d'avance pour votre aide
smotty