Extraire une image d'une feuille .xls ?

Bonjour
En utilisant le simulateur - programmateur
j'ai obtenu ça
============================= Sub Macro1()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:úlse, _
DisplayAsIcon:úlse, Left:0, Top:9, Width:58.5,
Height:!7.5 _
).Select
ActiveSheet.Shapes("Image1").Select
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll Users.WINDOWSDocumentsMes
imagesÉchantillons d'imagesCoucher de soleil.jpg" _
).Select
Selection.Cut
ActiveSheet.Pictures.Insert( _
"C:Documents and SettingsAll Users.WINDOWSDocumentsMes
imagesÉchantillons d'imagesNénuphars.jpg" _
).Select
End Sub
============================= "Selection.Cut" supprime l'image ( on pourrait la coller
sur une page de "Paint" pour la sauvegarder)
Tout dépend du but recherché : cette méthode montre
que l'on peut avoir un fichier images indépendant et
échanger les images avec Excel ou même laisser sur
Excel un emplacement vide !
@+
M41



"Christian" <christian.neu@tele2.fr> a écrit dans le message de news:
ebj0pBjAFHA.2572@TK2MSFTNGP10.phx.gbl...

Bonjour,

J'ai un fichier Excel avec une image dans chaque feuille.
Comment extraire l'image pour l'enregistrer indépendament du fichier xls
sous la forme :
MonImage.jpg ?


Christian

Bonjour,

Pour Excel, je présume que c'est pareil, mais dans Word, ils te
diraient d'enregistrer le fichier au format HTML.


"Christian" <christian.neu@tele2.fr> a écrit dans le message de
news:ebj0pBjAFHA.2572@TK2MSFTNGP10.phx.gbl...

Bonjour,

J'ai un fichier Excel avec une image dans chaque feuille.
Comment extraire l'image pour l'enregistrer indépendament du fichier
xls

sous la forme :
MonImage.jpg ?


Christian