Возможно ли управлять PowerPoint

← →
Александр_12 (2012-05-02 09:49) [0]

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

← →
AV © (2012-05-02 11:17) [1]

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

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

← →
Cobalt © (2012-05-02 11:55) [2]

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

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

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

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

← →
oldman © (2012-05-02 14:29) [4]

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

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

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

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

← →
AV © (2012-05-02 16:30) [5]

можно попробовать а-ля так
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, указав источник как какой-нибудь внешний?

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

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

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

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

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

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

Возможно ли управлять PowerPoint Найти похожие ветки