I found this and it works well. Exports charts as a gif image. I have
had no luck controlling the sixe of the GIF. What can I add to force
the GIF ouput to a 800x600 size?


Sub Save_ChartAsGif()
Dim oCht As Chart
Set oCht = ActiveChart
'ActiveSheet.Name
On erRROR GoTo Err_Chart
oCht.Export FileName:="D:\My Documents\_wip\Pic_" & ActiveSheet.Name &
".gif", Filtername:="gif"
'oCht.Export FileName:="C:\PopularICON.jpg", Filtername:="JPG"
Err_Chart:
If Err < 0 Then
Debug.Print Err.Description
Err.Clear
End If
End Sub