Listimages dans listview : images à trimballer partout

[13GIBE59]

Bonjour le forum. 🙂

Dans le fichier joint (merci pierrejean 😉), j’ai une listview dont j’ai dû alimenter une colonne (H) avec des images, puisque les listview ne tolèrent pas de police particulière (ici wingdings).
Tout cela fonctionne très bien, mais…pour pouvoir ouvrir ce fichier sur un autre PC, il faut obligatoirement placer sur le disque dur de ce PC au même endroit (même chemin = Workbook Path) le fichier et les deux images (jointes également).

Que faire pour associer définitivement la listview ou l’imagelist aux images, sans avoir à trimballer celles-ci en permanence ? 😕
- Ma tentative de les rentrer à la main dans l’item « personnaliser » de la fenêtre propriétés de l’imagelist s’est avérée infructueuse.
- Les quelques sites internet spécialisés visités à ce sujet ne sont pas explicites.
- L’aide d’Excel est muette.
- L’aide de VB6 (on ne sait jamais…) n’est pas plus parlante.

Quelqu’un aurait-il une idée ?

Merci d'avance.

 

[13GIBE59]

Re : Listimages dans listview : images à trimballer partout

Bonjour le Forum. 🙂

C'est la première fois que je me réponds à moi-même...mais quand on a la solution, autant en faire profiter tout le monde. 😉

Donc au lieu de trimballer partout les images de l'imagelist, on les insère dans le userform, propriété Visible = False, bien sûr, et le code pour les charger :

au lieu de :

Me.ImageList1.ListImages.Add , "Coche", LoadPicture(Chemin & "\Coche.jpg")
Me.ImageList1.ListImages.Add , "Noncoche", LoadPicture(Chemin & "\NonCoche.jpg")

on insère ce code :

Me.ImageList1.ListImages.Add , "Coche", Me.Image1.Picture
Me.ImageList1.ListImages.Add , "NonCoche", Me.Image2.Picture

Et ça marche très bien ! Plus besoin de valise pour transporter des images particulièrement encombrantes...

A plus.