ListView et images

[DAVIDRUN]

Bonsoir à toutes et à tous,

Je viens de découvrir les très utiles contrôles ListImages/ListView depuis peu mais
la documentation en la matière manque cruellement.

Je souhaite en fait ajouter dans le contrôle ListImage
des icônes perso stockés sur une feuille de calcul et non
dans un dossier externe.
La fonction LoadImage ne peut donc pas à mon sens être adaptée à cette
source d'image.
Mes icônes font désormais partie d'ActiveWorkbook.Sheets.Shapes.Shape("FirstIcon")etc...
Comment faire pour parvenir à cet objectif?

Quelqu'un a t'il une piste pour pouvoir afficher ce type d'image dans mon Listview?

Merci d'avance pour vos conseils.

à +
DAVIDRUN

 

[michel]

bonsoir Davidrun

si tes icones ( ou images ) doivent etre dans le classeur , tu peux essayer de les stocker directement dans l'ImageList

dans les propriétés de l'ImageList :
tu sélectionnes "Personnalisé"
puis l'onglet "image"
cliques sur le bouton "inserer images"
et choisis tes icônes ou images

si tu souhaites d'autres exemples sur les ListView et les imagesList

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/
cliquez 2 fois sur le lien en cas de message d'erreur


bonne soiree
MichelXld

 

[DAVIDRUN]

Bonsoir michel,

Merci pour tes astuces, par contre le lien dans ton message ne fonctionne pas.
J'ai en outre essayé d'afficher des icônes perso dans mon listview en
ayant bien sûr enregistré mes images dans un ListImage, mais cela
ne fonctionne pas.
En pièce jointe tu trouvera un exemple.
Si tu peux y jeter un coup d'oeil, je t'en remercie d'avance.


Bonne année 2005

à +

DAVIDRUN

 

[michel]

bonjour David

il ne te manquais pas grand-chose ; tu es presque arrivé au bout

il reste juste à attribuer une clé à l'image insérée :
tu vas dans les propriétés de l'imageList
Personnalisé
puis l'onglet "image"
dans l'exemple joint j'ai saisi "PlusVert" dans le champ "Key"

ensuite au moment de l'activation de l'USF il suffit d''associer la clé à chaque élément de la listView

...
For x = 1 To ListView1.ListItems.Count
ListView1.ListItems(x).SmallIcon = "PlusVert"
Next
...

remarque 1 :
pour le lien dans mon message precedent, il faut cliquer dessus une deuxieme fois en cas de message d'erreur

remarque 2 :
il ne faut pas definir les variables Byte et Integer sur une meme ligne


bonne soiree
MichelXld

 

[DAVIDRUN]

Bonsoir Michel,

Merci pour tes conseils.

Passe une bonne soirée.


à + sur XLD
DAVIDRUN