Редактировать данные диаграммы Powerpoint через скрипт VBA

Question

У меня есть презентация powerpoint с диаграммой, которая содержит данные из таблицы excel.

Я хотел бы изменить эти данные с помощью PowerPoint VBA редактор ..

, как я могу это сделать? я не могу найти способ доступа к данным таблицы excel.

приветствует

Answer 1

Этот код позволяет получить доступ к WorkSheet 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 

Если диаграмма привязана к изменяемым данным, возможно, она автоматически обновится. Если нет, запустите повторный подсчет.

HTH!

Редактировать

со следующим изменением он работает в Office 2007:

With oSh.OLEFormat.Object.WorkSheets(1) 
    .Range("A1").Value = .Range("A1").Value + 1 
    .Range("A2").Value = .Range("A2").Value - 1 
End With