Method "Add" of object "ChartObjects" failed

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?

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

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

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

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

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!

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