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!

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!

I thought it was something along those lines but wasn't
having much luck with it.

Thanks much Tom!

regards,
Adam Sparks

-----Original Message-----
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!


.

This give's me an Error message: "Object Required" on the
Chart1.select

:?

Adam
-----Original Message-----
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!


.

You would need a chart sheet that has a codename of Chart1

you can use anything that gets the a reference to a chart object (not
chartobject)

Charts(1).Select
Charts("Chart1").Select

activesheet.ChartObjects(1).Select

--
Regards,
Tom Ogilvy

wrote in message
...
This give's me an Error message: "Object Required" on the
Chart1.select

:?

Adam
-----Original Message-----
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!


.