Excel Downloads Forums - Afficher un message - enregistrer une image d Excel vers le Disque Dur

Spitnolan08 · 12/05/2008, 19h29

Bonsoir MJ13, MichelXLD,

Si j'ai bien compris, après de multiples essais, tu peux partir de ce code En supposant que ton image s'appelle"Picture 1":

Code:

Sub testb()
Dim Img As Object
Set Img = ActiveSheet.Shapes("Picture 1")
Img.Copy

Set ch = ActiveSheet.ChartObjects.Add(0, 0, Img.Width, Img.Height)
ch.Border.LineStyle = 0
ch.Chart.Paste

ch.Chart.Export "C:\Documents and Settings\MJ13\Bureau\testMJ13.jpeg", FilterName:="JPEG"
ch.Delete
End Sub

Ce code utilise un objet graphique comme intermédiaire.

Cordialement

Edit : en fait, c'est la même chose que MichelXLD mais écit différemment...et avec 1/4h de retard!
Edit 2 : suivant ta version d'Excel, il faut peut être remplacer Picture par Image

12/05/2008, 19h29	#3 (permalink)
Spitnolan08 XLDnaute Barbatruc Date d'inscription: décembre 2006 Version Excel : Excel 2003 (PC) Messages: 2 262	Re : enregistrer une image d Excel vers le Disque Dur Bonsoir MJ13, MichelXLD, Si j'ai bien compris, après de multiples essais, tu peux partir de ce code En supposant que ton image s'appelle"Picture 1": Code: Sub testb() Dim Img As Object Set Img = ActiveSheet.Shapes("Picture 1") Img.Copy Set ch = ActiveSheet.ChartObjects.Add(0, 0, Img.Width, Img.Height) ch.Border.LineStyle = 0 ch.Chart.Paste ch.Chart.Export "C:\Documents and Settings\MJ13\Bureau\testMJ13.jpeg", FilterName:="JPEG" ch.Delete End Sub Ce code utilise un objet graphique comme intermédiaire. Cordialement Edit : en fait, c'est la même chose que MichelXLD mais écit différemment...et avec 1/4h de retard! Edit 2 : suivant ta version d'Excel, il faut peut être remplacer Picture par Image __________________ Ne pas oublier d'effectuer une recherche dans les pages "questions-les-plus-frequentes-faq-et-didacticiels" avant de poser une question. La réponse s'y trouve bien souvent. Dernière modification par Spitnolan08 ; 12/05/2008 à 19h38.