Comment sauvegarder un objet shape de type msopicture dans une variable
Bonjour,
Je tente depuis pas mal de temps de convertir une image que j'ai dans un fichier Excel en type binary. J'ai fait un test avec un fichier jpg présent sur mon disque dur de la manière suivante:
Code:
1 2 3 4 5 6 7 8
| ImgFile = "c:\pcotest.jpg"
intFile = FreeFile
Open ImgFile For Binary As #intFile
ImgLen = LOF(intFile)
ReDim ImgBuff(ImgLen) As Byte
Get #intFile, , ImgBuff()
Close #intFile |
J'aimerais maintenant remplacé le jpg pcotest par une image de mon fichier Excel que j'ai réussi a retrouvé en utilisant l'objet shape. Mon image est de type msopicture. Malheureusement, je n'ai pas réussi et je n'ai trouvé aucune information sur aucun forum qui couvrirait ce sujet.
Quelqu'un peut-il m'aider ?
Pascal