Форум » Для флейма » PowerPoint » Ответить

PowerPoint

fil: Не работал ли кто из программы с PowerPoint ? oPpt:=CREATEOBJECT( "PowerPoint.Application" ) oPpt:Presentations:Open("My.ppt") - никак не могу открыть существующую презентацию пишет, что свойства Presentations у oPpt нет

Ответов - 5

fil: Нашел - надо обязательно Visible:=.T. сделать

Dima: fil пишет: oPpt:Presentations:Open("My.ppt") Скорее всего "дорогу" к файлу надо указать

fil: Вставил PowerPoint в окно своей проги все работает. Вот только время-от-времени портится отрисовка окна PowerPoint ведь при embedded обработчик этого окна живет в другом приложении. Как можно решить эту проблему ?


Andrey: fil пишет: Вставил PowerPoint в окно своей проги все работает. Напиши пожалуйста рабочий код, здесь на форуме. Глядишь - кому нибудь и пригодиться !

fil: Да код там примитивный, в Гугле все есть oApp:=CREATEOBJECT( "PowerPoint.Application" ) oApp:Visible:=.T. hPP := находим хендл окна класса PP11FrameClass или NetUIHWND (в зависимости от версии офиса) SetParent(hPP, oWnd:hWnd)



полная версия страницы