Редактирование данных Powerpoint Chart с помощью скрипта VBA - PullRequest
0 голосов
/ 30 декабря 2010

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

Я хотел бы отредактировать эти данные через редактор PowerPoint VBA.

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

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

1 Ответ

3 голосов
/ 30 декабря 2010

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