Скачать: CL | DM;

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

---

← →
brother ©   (2012-05-03 08:39) [6]

может наделать 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 и т.п.


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.121 c