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 ?
|
Similar Threads
