Chart1.Select
ActiveChart.Export "C:\Documents and
Settings\Adam\Desktop\Chart.gif", "GIF"


--
Regards,
Tom Ogilvy


"Adam Sparks" wrote in message
...
Hey all I asked this a couple years ago and got this script
essentially:

Sub exportChartAsImage()
Dim myWidth As Double
Dim myHeight As Double
ActiveChart.PlotArea.Select
Selection.ClearFormats
'Resizes the Chart For the Web Image
myWidth = 1024 ' or your desired GIF width in pixels
myHeight = 768 ' or your desired GIF height in pixels
ActiveChart.Parent.Width = myWidth * 0.75
ActiveChart.Parent.Height = myHeight * 0.75
'Exports the GIF File
ActiveChart.Export "C:\Documents and
Settings\Adam\Desktop\Chart.gif", "GIF"
End Sub


which is great BUT I need to also be able to export charts
that are on their own sheet and are not objects in a
spreadsheet.

Is this possible to do? TIA!