Hi,

I am trying to export a chart to a local *.gif image and I am getting
all sorts of errors...anyone have any ideas? I have searched the boards
and I keep getting the same error message each time I try to run the
macro...

===========================
Run-time error '91':
Object variable or With block variable not set

Sub SaveChartAsGIF ()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub
===========================
Run-time error '1004'
Method 'Export' of object '_Chart' failed

Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:="c:\Mychart.gif", FilterName:="GIF"
============================

I have tried a few other codes on the boards and they all produce one
or the other errors shown above. It wouldn't be such a problem if I
could have a macro resize the CHART WINDOW to full screen but I can't
seem to find that information anywhere...Any help is much appreciated!
Thanks so much!

Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"

Is the active chart a chart sheet? If not this line will fail with the
reported message.

A problem I came across recently was that, by installing the Office 2007
Beta on a machine with Office 2003 installed, the graphics filters for
Office 2007 were written over those for Office 2003, causing exports to most
file types to fail. Uninstalling 2007, deleting the file filters (from
C:\Program Files\Common\Microsoft Shared\), and reinstalling from the Office
2003 CD, fixed this problem.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______



wrote in message
oups.com...
Hi,

I am trying to export a chart to a local *.gif image and I am getting
all sorts of errors...anyone have any ideas? I have searched the boards
and I keep getting the same error message each time I try to run the
macro...

===========================
Run-time error '91':
Object variable or With block variable not set

Sub SaveChartAsGIF ()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export FileName:=Fname, FilterName:="GIF"
End Sub
===========================
Run-time error '1004'
Method 'Export' of object '_Chart' failed

Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:="c:\Mychart.gif", FilterName:="GIF"
============================

I have tried a few other codes on the boards and they all produce one
or the other errors shown above. It wouldn't be such a problem if I
could have a macro resize the CHART WINDOW to full screen but I can't
seem to find that information anywhere...Any help is much appreciated!
Thanks so much!