Export a chart in a GIF file. Run-time error '1004': Application-defined or object-defined error;

  • Thread starter Thread starter cschiffers
  • Start date Start date
C

cschiffers

Hi All,

I am new programing EXCEL makros and I am trying to export an EXCEL
chart as a GIF file. I am using the following code to do it:

Set CurrentChartX =
Sheets("1.Upright&TrackRodCoordinates").ChartObjects(1).Chart
CurrentChartX.Parent.Width = 306
CurrentChartX.Parent.Height = 180

Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChartX.Export Filename:=Fname, FilterName:="GIF"

I obtain the following error message in the last line:
Run-time error '1004': Application-defined or object-defined error;

I have tried the same code in other computers without problems.The
value of the pathname stored in Fname has been checked and seems
correct. I would appreciate any help...

Thank you,

Catherine
 
Does this work:

Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.png"
CurrentChartX.Export Filename:=Fname, FilterName:="PNG"

If so, there may be a problem with the GIF filter file. I had a similar
problem when I installed Excel 2007 on a computer alongside Excel 2003, then
removed Excel 2007. I don't recall the exact steps to fix it, but it may
have involved standing on my head under a full moon. Also copying the filter
files from a different computer and overwriting the ones that Office 2007
may have left behind.

- Jon
 
Thank you Jon,

I have changed the filter name as you have suggested. Unfortunatelly,
It hasn't solved the problem.

I am using Excel 2003, in case this information helps...

Do you have any other suggestion?

Thanks,

Cath
 
Try omitting the optional FilterName argument altogether or pass an empty
string, eg

CurrentChartX.Export Filename:=Fname, FilterName:=""
or
CurrentChartX.Export Fname

Regards,
Peter T
 
Thank you Peter.

Unfortunatelly, it has not solved the problem. It could point towards
a problem with the path specified, but I have tried different existant
ones without success... Please, let me know if you have any other
idea.

Cath
 
Sorry Cath, out of ideas. Omitting the FilterName argument does solve a
similar problem for some.
You say you've double checked the path, though you code should always be OK
if code is in a previously saved wb -
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"

Unless, you're not working in Vista by any chance, where write privileges to
folders can be much more restrictive, as I understand.

Regards,
Peter T
 
Back
Top