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!

To save your chart as an image find Stephen Bullen's PastePicture.zip on
this page
http://www.oaltd.co.uk/Excel/Default.htm

It wouldn't be such a problem if I
could have a macro resize the CHART WINDOW to full screen

'Locate' your chart on a Chart sheet
With the chart-sheet, File Page Setup Margins, experiment reducing
margins (reset before printing).
Put the 'Full Screen' menu item on your toolbar which you'll find under -
Customize toolbars Commands View
Do that both with a chart-sheet and worksheet active.

Regards,
Peter T

wrote in message
ups.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!

Both of your procedures worked fine for me.

The first one would require that a chart is selected.

The second one would require that the activesheet has a chartobject.

If you have a chartobject and you want to resize it in code, then use the
ActiveWindow.VisibleRange

Sub EFD()
Dim r As Range
Set r = ActiveWindow.VisibleRange
With ActiveSheet.ChartObjects(1)
.Top = r.Top
.Left = r.Left
.Width = r.Width
.Height = r.Height
End With
End Sub


--
Regards,
Tom Ogilvy


" wrote:

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!

All this code worked for me:

Sub SaveChartAsGIF()
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
End Sub

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

End Sub
Sub EFD()
Dim r As Range
Set r = ActiveWindow.VisibleRange
With ActiveSheet.ChartObjects(1)
.Top = r.Top
.Left = r.Left
.Width = r.Width
.Height = r.Height
End With
End Sub

--
Regards,
Tom Ogilvy


" wrote:

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!

Hi,

The error would suggest you do not have the graphics filters loaded.

If the Office install was not a complete install they may have been left
out. If I remember correctly they are in the Shared Tools section of
list of items to install.

Cheers
Andy

wrote:
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!


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

The error would suggest you do not have the graphics filters loaded.

I originally thought of suggesting that as well, but, while I wouldn't know
how to uninstall them to test, do you really think it would evoke a Run-time
error '91':
Object variable or With block variable not set?

That didn't seem to jive with me, but I have never not had them installed.

--
Regards,
Tom Ogilvy



"Andy Pope" wrote:

Hi,

The error would suggest you do not have the graphics filters loaded.

If the Office install was not a complete install they may have been left
out. If I remember correctly they are in the Shared Tools section of
list of items to install.

Cheers
Andy

wrote:
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!


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Hi Tom,

No filters would not produce the 91 error. As you pointed out that's
more likely the chart not being active. A bad path also raises the 1004
error but the code would suggest that this is unlikely.

No chart active,
Error: 91 Object variable or With block variable not set

Incorrect Chartobject indexing,
Error: 1004 Unable to get the ChartObjects property of the Worksheet class

No graphic filter,
Error: 1004 Method 'Export' of object '_Chart' failed

Path does not exist,
Error: 1004 Method 'Export' of object '_Chart' failed

Cheers
Andy

Tom Ogilvy wrote:
The error would suggest you do not have the graphics filters loaded.


I originally thought of suggesting that as well, but, while I wouldn't know
how to uninstall them to test, do you really think it would evoke a Run-time
error '91':
Object variable or With block variable not set?

That didn't seem to jive with me, but I have never not had them installed.


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Andy,

Nice list. Thanks for responding. Upon reflection, I am guessing you used
a dummy format argument to test for no graphic filter (my bad <g).

--
Regards,
Tom Ogilvy


"Andy Pope" wrote:

Hi Tom,

No filters would not produce the 91 error. As you pointed out that's
more likely the chart not being active. A bad path also raises the 1004
error but the code would suggest that this is unlikely.

No chart active,
Error: 91 Object variable or With block variable not set

Incorrect Chartobject indexing,
Error: 1004 Unable to get the ChartObjects property of the Worksheet class

No graphic filter,
Error: 1004 Method 'Export' of object '_Chart' failed

Path does not exist,
Error: 1004 Method 'Export' of object '_Chart' failed

Cheers
Andy

Tom Ogilvy wrote:
The error would suggest you do not have the graphics filters loaded.


I originally thought of suggesting that as well, but, while I wouldn't know
how to uninstall them to test, do you really think it would evoke a Run-time
error '91':
Object variable or With block variable not set?

That didn't seem to jive with me, but I have never not had them installed.


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info