Export Pie Graph Chart as Image

[Shaka215]

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!

 

[Peter T]

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

 

[Tom Ogilvy]

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

 

[Tom Ogilvy]

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

 

[Andy Pope]

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

 

[Tom Ogilvy]

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]

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]

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>).