Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Автоматизация PowerPoint в Delphi.

Автор: Mick Winder 15.2.2005, 15:44

Необходимо добавить объект Point в презентацию. Используется функция AddOLEObject.
Его конструкция в http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbapp11/html/ppmthAddOleObject1_HV05192052.asp
и в PowerPoint_TLB:

Код


 function AddOLEObject(Left: Single; Top: Single; Width: Single; Height: Single; 
                          const ClassName: WideString; const FileName: WideString; 
                          DisplayAsIcon: MsoTriState; const IconFileName: WideString; 
                          IconIndex: SYSINT; const IconLabel: WideString; Link: MsoTriState): Shape;

Написал такой следующий код:

Код


PowerPointApp.ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(120, 110, 480,
 320, 'Paint.Picture', EmptyParam, msoFalse, EmptyParam, 0, EmptyParam, msoFalse).Select;

Вызывает ошибку: Type mismatch. В чем ошибка? Не врублюсь... Я итак и эдак...

Автор: mrDuke 18.12.2007, 09:53

Подскажите пожалуйста... На слайде есть 10 кнопок с ссылками на другие слайды... а так же кнопки ттипа "назад" и "далее". Как программно из Delphi нажать любую из них? smile