U
Ulrik
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
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