The question is:

i have Excel file updated on daily basis. I need to refresh PowerPoint
presentation file after this because ppt Graph should be also updated.

Here is a peace of code:

SayStatusBar "Loading data from Excel file..."

Set objXlsApp = CreateObject("Excel.Application")
objXlsApp.Visible = True
objXlsApp.DisplayAlerts = False
objXlsApp.Interactive = False
objXlsApp.AskToUpdateLinks = False
objXlsApp.Workbooks.Open TxtXlsSrcFile.Text, ReadOnly:=True
Set objSrcWorkbook =
objXlsApp.Workbooks(GetShortFileName(TxtXlsSrcFile .Text))

SayStatusBar "Creating presentation object..."
' create presentation object
Set objPpt = CreateObject("PowerPoint.Application")
objPpt.Activate

' open old file as template
objPpt.Presentations.Open TxtPptSrcFile.Text ', msoTrue

' save under new name
objPresentation.SaveAs TxtPptDestFile.Text

lngSlideCount = objPresentation.Slides.Count
For i = 1 To lngSlideCount

' here is a source worksheet
Set objSrcSheet = objSrcWorkbook.Worksheets('Sheet1$')
' Graph object
Set objChart = objSlide.Shapes.Item(1).objShape.OLEFormat.Object

With objChart.Application.DataSheet

' copy rows
For i = 0 To (lngXlsRowEnd - lngXlsRowStart)

' copy cols
For j = 0 To (lngXlsColEnd - lngXlsColStart)

.Cells(lngGraphRowStart + i, lngGraphColStart + j).Value
= _
objSrcSheet.Cells(lngXlsRowStart + i, lngXlsColStart
+ j).Value

Next j

Next i

End With

objChart.Refresh

next i

Label1:
objChart.Refresh

SayStatusBar "Saving results..."
objPresentation.Save
set objPresentation = nothing.....
objPpt.Quit
Set objPpt = nothing
...

The problem is: without calling objChart.Refresh i always saw the info
like in old file - no changes (but in debugger i see the differences!).
With using objChart.Refresh i can save file with a new info. But when i
opened a new file after save and "double click" on Chart - new info
disappears and Graph looks like old one (1 second ago it looks like
new!). TBC: If i will make a pause at Label1 (messagebos, for example),
switch to PPT application, make some clicks (no changes) and after that
resume my application - all info saved in the new file and never revert
back.

So where is my mistake and how to correctly update a Chart in PowerPoint
presentation?

Thanks in advance.
Igor



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!