Create/Update Excel Objects in Power Point
 

I developed an add-in in Power Point 97, 2000, XP and 2003 for creating
Excel charts/tables and being able to update them. The code I used is
below:

Dim PPT_CHRT As OLEFormat
Dim PPT_SLD As Slide

'ADD a chart/table
PPT_SLD.Shapes.AddOLEObject Left:=var_chrt_L, Top:=var_chrt_T,
Width:=var_chrt_W, Height:=var_chrt_H, ClassName:="Excel.Chart.8",
Link:=msoFalse

Set PPT_CHRT = PPT_SLD.Shapes(var_SHP_count_no).OLEFormat

PPT_SLD.Shapes(var_SHP_count_no).Select

'EDIT chart/table
Set PPT_SLD = ActivePresentation.Slides(var_SHP_SLD_no)

Set PPT_CHRT = PPT_SLD.Shapes(var_CURR_SHAPE_name).OLEFormat

PPT_SLD.Shapes(var_CURR_SHAPE_name).Select

'CLOSE chart/table
PPT_CHRT.Activate

ActiveWindow.Selection.Unselect

Set PPT_CHRT = Nothing

In 97, 2000 and XP it works without any problem. In 2003, if user
selects to update a lot of charts/tables then messages of Excel start
appearing "Microsoft Office Excel starts recovering your documents" and
errors appear when I use the objects for editing a chart/table.

What could be the problem ?