Этот код позволяет получить доступ к рабочему листу Excel, встроенному в презентацию PowerPoint.
Sub a()
Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape
Set oSl = ActivePresentation.Slides(1)
Set oSh = oSl.Shapes(1)
With oSh.OLEFormat.Object.Sheets(1)
.Range("A1").Value = .Range("A1").Value + 1
.Range("A2").Value = .Range("A2").Value - 1
End With
Set oSl = Nothing
Set oSh = Nothing
End Sub
Если график связан с данными, которые вы изменяете, возможно, он обновится автоматически. Если нет, принудительно пересчитайте.
НТН!
Редактировать
Со следующим изменением он работает в Office 2007:
With oSh.OLEFormat.Object.WorkSheets(1)
.Range("A1").Value = .Range("A1").Value + 1
.Range("A2").Value = .Range("A2").Value - 1
End With