Discussion :

[skual]

Bonjour à tous,

J'aimerais mettre une image dans un controle picture (qui est dans une UserForm) sans que cette image soit présente sur le disque mais juste sur une feuille de mon classeur.
Le but est d'éviter d'avoir un dossier (contenant les images) à faire suivre avec l'application Excel.

Donc, si ma UserForm s'appelle Menu, mon controle picture Image1 et que l'image est dans la feuille1, je pensais faire qqc du genre:

Code :

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

1
2
 
Menu.Image1=Feuil1.????

Pouvez-vous m'éclairer sur ce problème?

Merci.

[SilkyRoad]

bonjour

plutot que de placer les images directement dans la feuille , je te propose d'inserer un objet imageList dans ton UserForm , pour y stocker les images

quand l'objet est inséré , pour ajouter ou modifier la liste des images :
dans les propriétés de l'ImageList :
tu sélectionnes "Personnalisé"
puis l'onglet "image"
clique sur le bouton "inserer images"
et tu choisis tes icônes ou images


et ensuite pour appeler une des images stockée ( par exemple la 2eme image )

Code :

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

Me.Image1.Picture = ImageList1.ListImages(2).Picture

bonne journée
michel

[ThierryAIM]

plutot que de placer les images directement dans la feuille , je te propose d'inserer un objet imageList dans ton UserForm , pour y stocker les images

ce serait effectivement la meilleure solution

le seul hic, c'est que ca m'étonnerais fort que le contrôle ImageList soit disponible dans Excel, sans avoir VB6

[jmfmarques]

Je crois par contre me rappeler (n'ai plus et ne peux vérifier) l'existence d'une collection Pictures (à la quelle on peut se référer par la méthode Pictures(index)).
Que ceux qui le peuvent (moi je n'ai plus) regardent si ma mémoire est bonne.
Après effort supplémentaire de mémoire, quelque chose comme
Worksheets("Feuilx").Pictures(z)
pour pointer vers la Picture d'indez z sur la heuille feuillex
Je n'en suis pas certain non plus, mais il me semble me rappeler que l'on pouvait constituer cette collection en l'associant avec des objets OLE (et embedded) pour ne pas avoir à "trimbaler" le fichier-image avec l'appli... à voir ... (??)

[skual]

OK merci, j'ai effectivement un controle ImageList, je vais regarder ça et je vous dis ce que ça donne.

[ThierryAIM]

il te faudra alors faire suivre le controle ImageList avec ton application (tout du moins MSCOMCTL.OCX si celui-ci n'est pas installé sur la machine cible), et en plus, l'enregistrer
Alors ça, ou un dossier images, à toi de choisir

[skual]

Le controle ImageList est très bien adapté à mon cas.

J'ai utilisé ceci comme l'a dit SilkyRoad:

Code :

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

1
2
 
Image1.Picture = Menu.ImageList1.ListImages.Item(2).Picture

Cela marche très bien.

A noter que, sur Excel 2000, ce controle est integré d'origine, il n'y a pas besoin de le rajouter.

Par contre, je n'ai pas réussi avec la collection Pictures...( ce qui ne veut pas dire que cela ne marche pas).

Merci à tous pour vos conseils.

Bonne après-midi.