У меня стоит такая же задача: исправить конкретную диаграмму в PowerPoint путем редактирования табличных значений.
Запускаю ваш скрипт из MS Visual Studio и выдается ошибка на HasChart:

If oShp.HasChart Then ...
Посмотрела в отладчике, действительно нет такого свойства.
Может знаете, как это обойти?

Вот код:
Dim objPPT As Object
objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Dim objPres As PowerPoint.Presentation = objPPT.Presentations.Open("C:\SAF1.ppt")
Dim xlApp As Object = CreateObject("Excel.Application")
Dim xlWB As Object

For Each oSld In objPres.Slides

If oSld.SlideIndex = 7 Then ' 7-ой слайд

' ДЛЯ КАЖДОГО СЛАЙДА ИЩЕМ ДИАГРАММУ
For Each oShp In oSld.Shapes
If oShp.HasChart Then

' Редактируем диаграмму в презентации PowerPoint
With oShp.Chart.ChartData
.Activate()
objPPT.SlideShowWindow.Activate()

xlWB = oShp.Chart.ChartData.Workbook
xlWB.Worksheets(1).Range("B2").Value = 200
xlWB.Close(False)
xlWB = Nothing

End With
End If

Next oShp
End If

Next oSld

xlApp.Quit()
xlApp = Nothing

'--- Очистка PowerPoint
objPres.Close()
objPPT.Quit()
objPPT = Nothing

TataS,

Мне необходимо отредактировать из кода Visual Basic (MS Visual Studio) таблицу диаграммы в PowerPoint.
Прогуглила все что можно, но так ничего и не нашла: либо создается новая презентация и туда копируются созданные в Excel диаграммы, либо макросы, которые в моем случае неприменимы.
Неужели никто не сталкивался с этой проблемой?