I'll add this checking for an activeworkbook and sees if it helps.

Thanks for your response!

PS. do you have any idea how the code in it's current form works on some
installations
and never works on these pc:s I mentioned in the original post.


"Jon Peltier" wrote in message
...
From the Immediate Window I executed this line:

?activechart is nothing

If I had no active workbook, I got an error. If I had an active workbook,
I got either true or false. You should insert a test for the
activeworkbook or activesheet before the test for the active chart.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Ulrik" <ulriknospamrehn.se wrote in message
...
Hi all,

I have encountered a stange bug. The bug occurs when copying an active
chartobject in Excel to PowerPoint.
(Excel is called from PowerPoint.)

The strange thing about this bug is that it occurs *only* on some pc:s
not on other.
The pc:s (stationary pc:s) have all Office 2003 sp3 MUI version and
Windows XP english all servicepacks installed.
I have tried to change the default printer with no result.

The code is as follows.

===========Code Start==============================

' Grab the existing instance of Excel
Set objExcel = GetObject(, "Excel.Application")

' If we have no Excel instance running warn the user and exit the
sub.
If objExcel Is Nothing Then
Call MsgBox(c_Message_ExcelNotStarted, vbExclamation, g_cAppTitle)
GoTo Routine_Exit
End If

' If no selected chart warn user and exit sub.
If objExcel.ActiveChart Is Nothing Then
Call MsgBox(c_Message_ExcelNoChart, vbExclamation, g_cAppTitle)
GoTo Routine_Exit
End If

===========Code End==============================

The error occurs in this part:

' If no selected chart warn user and exit sub.
If objExcel.ActiveChart Is Nothing Then
Call MsgBox(c_Message_ExcelNoChart, vbExclamation, g_cAppTitle)
GoTo Routine_Exit

End If

It fails on this line
objExcel.ActiveChart

and throws the error.

"Application or user-defined error"

Anybody has seen this before?

Thanks for help.

/Ulrik