Здравствуйте!
Суть дела: есть файл excel с кучей таблиц и есть стандартный отчет powerpoint. Есть макрос, который копирует нужные данные в таблицах excel и вставляет в таблицы данных графиков в powerpoint.
Вроде бы всё работает. НО, если зайти в таблицы данных обновленных презентаций, вставленный данные пропадают!(((
Нужно после вставки данных в график сразу сохранить изменения в нем. Как это сделать не знаю(
Set oPPTApp = CreateObject("PowerPoint.Application")
...
Вот так ищу графики в powerpoint:
For Each oPPTShape In .Shapes
If oPPTShape.Type = msoEmbeddedOLEObject Then
If oPPTShape.OLEFormat.ProgId = "MSGraph.Chart.8" Then
Set oGraph = oPPTShape.OLEFormat.Object
...
oGraph.Application.DataSheet.Range("A0:A6").Delete
oGraph.Application.DataSheet.Range("B1").Paste
oGraph.Save - так не работает
И может посоветуете литературу по vba для ms graph.
Ответить
|