Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Возможно ли управлять PowerPoint [D6, XP]


Александр_12 ©   (2012-05-02 09:49:00) 

Есть проект PowerPoint, где кроме картинок имеется таблица с данными. Данный проект запускается автоматически на информационном табло ежесуточно. Возможно ли из-под Delphi автоматически изменять данные (они берутся из базы данных) в таблице до запуска PowerPoint ?


Александр_12   (2012-05-21 11:14:00) [1]


однако, что мешает вставить таблицу excel, указав источник как какой-нибудь внешний?


Не знаю, раз мастера говорят, то значит это возможно, но сначала передавать данные из Oracle в Excel, чтобы они затем появились в РР... Хотелось бы всё-таки передать данные напрямую, но никак не могу найти информацию в интернете. Может кто-то сталкивался с такой проблемой и решил её?


> //  PP.ActivePresentation.Slides(1).Shapes(1).Table.Cell(1,
> 1).Shape.TextFrame.TextRa nge.Text := 'sdfdsfdf';  // не
> работает, хотя в самом PP аналогичный макрос работает, надо
> поэкспериментировать с () [] items и т.п.


Действительно не работает... :(


brother   (2012-05-03 08:39:00) [2]

может наделать pptx и потом, при необходимости, убивать процесс и запускать с другим pptx?


AV   (2012-05-02 16:30:00) [3]

можно попробовать а-ля так
uses comobj;
procedure TForm1.btn1Click(Sender: TObject);
var
 PP: Variant;
 T: Variant;
begin
 PP := CreateOleObject('PowerPoint.Application');
 PP.Visible := True;
 PP.Presentations.Open('c:\1.pptx', False, False, True);
 T := PP.ActiveWindow.Presentation;
//  PP.ActivePresentation.Slides(1).Shapes(1).Table.Cell(1,1).Shape.TextFrame.TextRa nge.Text := 'sdfdsfdf';  // не работает, хотя в самом PP аналогичный макрос работает, надо поэкспериментировать с () [] items и т.п.
 PP.Quit;

---------
однако, что мешает вставить таблицу excel, указав источник как какой-нибудь внешний?


oldman   (2012-05-02 14:29:00) [4]


> 2. Есть таблица в БД, в которой накапливается информация
> ежесуточно. Данную информацию желательно занести программным
> путём в нарисованную таблицу на одном из слайдов PowerPoint.


http://office.microsoft.com/ru-ru/powerpoint-help/HA010204555.aspx


> 4. Также хорошо было бы программным путём остановить показ
> слайдов и выгрузить PowerPoint до следующего утра.


Кто мешает "прибить" процесс?


Александр_12   (2012-05-02 12:44:00) [5]

1. Есть БД (Oracle)
2. Есть таблица в БД, в которой накапливается информация ежесуточно. Данную информацию желательно занести программным путём в нарисованную таблицу на одном из слайдов PowerPoint.
3. Расписание запуска существует: 9 утра ежедневно, в 18 часов компьютер выключается.
4. Также хорошо было бы программным путём остановить показ слайдов и выгрузить PowerPoint до следующего утра.


Cobalt   (2012-05-02 11:55:00) [6]

можно, разрешаю :-)

По другому на этот вопрос ответить, имхо, нельзя.


AV   (2012-05-02 11:17:00) [7]


> Возможно ли из-под Delphi автоматически изменять данные
> (они берутся из базы данных) в таблице до запуска PowerPoint
> ?

Уточните
1. Есть некая БД.
2. Есть некая таблица
3. Есть расписание запуска PowerPoint.
Требуется из 1 в 2 перед 3 копирнуть данные?


Наверх

Титульная страница Поиск, карта сайта Написать письмо