Method "Add" of object "ChartObjects" failed

[praftery]

I am getting this error:

Runtime Error '2116157058 (81de017e)':
Method "Add" of object "ChartObjects" failed

This happens when I use my macro code:
Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 10, rng.Height + 10)

And it even happens when I use the Microsoft Help example code below:

Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
gallery:=xlLine, title:="New Chart"

Does anybody know what could be causing this error, and how I can fix it?

[romperstomper]

Please put code tags round your code so we can assist you.
(FYI, the code works for me in 2007)

[praftery]

I get this error even if I copy the code directly from the example in Office 2007 Help, which is this:

Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
gallery:=xlLine, title:="New Chart"

However, the project that I am trying to get to work is below. This code works on one machine (Vista, Office 2007) but does not work on the other (Windoes Server Edition 2003, Office 2007).

Function CopyRangeToGIF()
' save a range from Excel as a picture
Dim rng As Excel.Range
Dim cht As Excel.ChartObject

Const strPath As String = "C:\"

Application.ScreenUpdating = False

'Set rng = Range("A1").CurrentRegion
Set rng = Range("A2:w35")

rng.CopyPicture xlScreen, xlPicture

Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 10, rng.Height + 10)

cht.Chart.Paste

cht.Chart.Export "C:\Users\Paul\Desktop\myfile.png"

cht.Delete

ExitProc:
Application.ScreenUpdating = True
Set cht = Nothing
Set rng = Nothing
End Function

Any ideas? I have tried unprotecting the worksheet without any luck...

[romperstomper]

It definitely won't work if the sheet is protected when you run the code; otherwise, it should work fine as there is nothing wrong with the syntax.

[praftery]

I know. I was working on this on the first machine without problems. Then I moved to the Windows Server 2003 machine and this simple function will not run...

I'm not sure what could be causing the error...

[romperstomper]

Only thing I can think of offhand is that charts are very sensitive to printers - do you have a printer set up as the default on the server?

[praftery]

No, there is no default printer set up on the server... And I don't 'print' anything at any stage of the code, so I'm not sure that I follow you - I don't see how a printer could cause a runtime error.

But at this stage I'm open to try anything... it really has me stumped!

[romperstomper]

As I said, Excel charts are very closely tied to printers - in display terms, not just actual printing. Worth a try.

[Ramziya]

Hi!
So finally...
Did you find a decision?