Saving a chart as a JPG file

A

Al

Hi

I am running Excel XP.

Is there a way to programmatically save each chart on a workbook as a
separate JPG or other graphics file?

Thanks in advance
 
D

Don Guillett

these should help.
Sub ExportChartGIF()
ActiveChart.Export Filename:="C:\a\MyChart.gif", _
FilterName:="GIF"
End Sub
Sub ExportChartJPG()
ActiveChart.Export Filename:="C:\a\MyChart.jpg", _
FilterName:="jpeg"
End Sub
 
Top