I need to save pictures in workbooks as separate JPG or GIF files. So far
haven't found a method. Why doesn't the Shape object support saving as
graphic file?
Has anyone ever faced this problem and succeeded?
Alfonso Gonzales
Sub Macro2()
'
Range("D8").Select
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\Owner\Desktop\New Folder\DSC_0086.JPG",
Link:= _
False, DisplayAsIcon:=False).Select
End Sub
--
Gary''s Student
Thank you for the code. Perhaps my language wasnt clear enough in specifying
the problem. The solution I need should do the opposite: save a picture FROM
a workbook to a image file.
Alfonso Gonzales
You could copy the picture then paste it onto a chart. Charts have an
Export method that can create a graphic file of what's displayed on the chart.
Regards,
Vic Eldridge
Save the file as a webpage and you will get a htm file and a folder with the pictures
--
Regards Ron de Bruin
http://www.rondebruin.nl
"alfonso gonzales" <alfonso....@wp.pl> wrote in message news:Ouoj09$9FHA...@TK2MSFTNGP11.phx.gbl...