Как изменить PowerPoint Chart ChartData в Excel VBA

Question

Я пытаюсь изменить ChartData (значения) в Powerpoint с помощью Excel-VBA.Данные ChartData не связаны с другой книгой Excel.

Проверки: - PowerPoint открыт - требуется презентация открыта - диаграмма находится на слайде 4

Поведение: - изменения заголовка диаграммы - книга сОткроется ChartData - Ошибка выполнения '424': Требуется объект - Отладка помечает следующую строку:

Chart.ChartData.Workbook.Worksheets("Tabelle1").Range("B2:B5").Value = 50

Надеюсь, кто-нибудь может мне помочь ...: -)

Sub ModifyChartData()

Dim pptApp As Object
Dim pptPres As Presentation

Set pptApp = GetObject(, "PowerPoint.Application")
Set pptPres = pptApp.ActivePresentation


pptPres.Slides(4).Shapes("Diagramm1").Chart.ChartTitle.Text = "Sales Overview"
pptPres.Slides(4).Shapes("Diagramm1").Chart.ChartData.Activate
Chart.ChartData.Workbook.Worksheets("Tabelle1").Range("B2:B5").Value = 50
Workbooks.Close

End Sub

Answer 1

Пример:

Код:

Set pptApp = GetObject(, "PowerPoint.Application")
Set pptPres = pptApp.ActivePresentation
pptPres.Slides(1).Shapes(1).Chart.ChartTitle.Text = "Sales Overview"
pptPres.Slides(1).Shapes(1).Chart.ChartData.Activate
pptPres.Slides(1).Shapes(1).Chart.ChartData.Workbook.Worksheets("Blad1").Range("B2:B5").Value = 50

Результат: