how to save pictures in excel as gif or jpg

[Sven Aeyels]

Hi,

I can save charts to gif. Is it possible to save picture to gif or jpg? I
use the following code to save charts:

Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:=ThisWorkbook.Path & "\chrt1.gif",
FilterName:="GIF"
Set mychart = ActiveSheet.ChartObjects(2).Chart
mychart.Export Filename:=ThisWorkbook.Path & "\chrt2.gif",
FilterName:="GIF"

What do I have to change, so I can save pictures
Thanks in advance.

Kind regards,
Sven.

 

[Andy Pope]

Hi Sven,

Take a look at the code in my addin as a way around the problem.
(http://www.andypope.info/vba/gex.htm)