is there a way to save pictures in worksheet as graphic filse elsewhere?

[alfonso gonzales]

is there a way to save pictures in a worksheet as graphic filse elsewhere
using VBA?

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

 

[Gary''s Student]

Just use the VBA equivalent of Insert > Object


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

 

[alfonso gonzales]

Hello

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

 

[Vic Eldridge]

Hi Alfonso,

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

 

[Ron de Bruin]

Hi alfonso

Save the file as a webpage and you will get a htm file and a folder with the pictures