Export Chart to file (2002/SP3)

Topic

New Reply

I have an embedded chart object in my worksheet. I’m wrote a code which will export the chart to a GIF file, but it comes with an Run-time error ’91’ in line 7. How can I fix this?

Private Sub SaveGIF_Click()
Dim chtChart As ChartObject
Dim FileName
FileName = “Temperature.gif”
FileName = Application.GetSaveAsFilename(FileName)
If FileName False Then
chtChart.Chart(“TemperatureChart”).ExportPicture FileName, Width:=320, Height:=240
End If
End Sub

Reply | Quote

Replies

Your code makes little sense.

1) You declare a variable chtChart but don’t assign it a value, so it is empty when you try to export it.
2) chtChart.Chart(“TemperatureChart”) is meaningless.
3) ExportPicture is not a method of any object in Excel.

Try this:

Set chtChart = ActiveSheet.ChartObjects(“TemperatureChart”)
chtChart.Chart.Export FileName, “GIF”

Reply | Quote