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!