как сохранить изменения в таблице graph

Программирование на Visual Basic for Applications
Куликов Сергей
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 05.12.2008 (Пт) 16:37

как сохранить изменения в таблице graph

Сообщение Куликов Сергей » 05.12.2008 (Пт) 16:40

Здравствуйте!

Суть дела: есть файл 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.

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 70

    TopList