[VB6] [Excel] Insérer une image dans une feuille

Bonjour,

Mon programme crée un fichier Excel qui est une liste de prix provenant d'une table dans Access. J'utilise l'objet worksheet pour écrire dans le fichier excel. Le tout fonctionne à merveille. La seule chose que je voudrais être est mesure de faire serait de brancher une image jpg dans mon fichier Excel. En effet, dans ma table, chaque enregistrement possède un champ avec comme valeur le chemin pointant la photo associée (ex: c:\photo.jpg). À partir de cette valeur, je voudrais donc coller la photo correspondante dans le fichier Excel. Est-ce possible ?

ActiveSheet.Pictures.Insert ("NomDuFichier")

Oui mais je voudrais pouvoir déterminer dans quel cellule la mettre mon image ...

Essaye de le faire en direct en enregistrant une macro et en regardant le code qui en résulte, tu auras certainement des instruction sde positionnement !


(I am the noise from your backside and I can stain your pants !)

Ce sera la cellule active

Mais non : astuce de contournement
Les labels admettent de charger une image
donc on ajoute un label

Code:

---

1 2	ActiveSheet.OLEObjects.Add ClassType:="Forms.Label.1", Link:=False, _ DisplayAsIcon:=False, Left:=85.2, Top:=78, Width:=92.4, Height:=81

---

ce qui permet de choisir l'emplacement et la taille
puis on incorpore l'image de son choix dans ce container

Code:

---

Label1.Picture = LoadPicture("F:\SELECTION Images animées\j0283722.gif")

---

il y a des moments ou je décroche. :cry:
A part faire un fichier plus gros, quel est l'intérêt d'ajouter un label 8O

C'est vrai que ça fonctionne pareil avec un controle image
mais pour le fun