请各位大侠指点下如何调用ppt(50分)

  • 主题发起人 dyhkxywangdong
  • 开始时间
D

dyhkxywangdong

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序如下
调用幻灯片
var
ssSet: SlideShowSettings;
ssWin: SlideShowWindow
procedure Tjcrm_fm.btn6Click(Sender: TObject);
var
lujin:string;
begin
lujin:=extractfilepath(application.ExeName)+'ppt/3-2-S0.ppt';
//获取可执行文件名
pwrpntplctn1 := TPowerPointApplication.Create(self);
pwrpntplctn1.Visible :=msoTrue;(什么意思,编译同不过)是否变量?
如何单击一个按钮就实现ppt的全屏播放
// pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open('C:/Documents and Settings/Administrator/桌面/01/ppt/test.ppt', msoFalse, msoFalse, msoTrue));
pwrpntprsntn1.ConnectTo(pwrpntplctn1.Presentations.Open(lujin, msoFalse, msoFalse, msoTrue));
ssSet := pwrpntprsntn1.SlideShowSettings;
ssSet.LoopUntilStopped := msoFalse;
ssSet.ShowType := ppShowTypeSpeaker;
ssSet.Run;
ssWin := pwrpntprsntn1.SlideShowWindow;
end;
 
那个msoTrue msoFale总是编译通不过,搞不懂是什么原因,但我看别人的例子是这么写的,很郁闷啊
 
去SERVERS页里拖个powperPoint的控件,啥也不用设置,就OK了
是个PPT里自定义的变量
 
msoTrue以1替换,msoFalse以0替换
 
能不能说的具体点 有没有具体的例子啊?我是个新手不是很懂,谢谢啊
 
use powerpointXP
或者msoTrue以1替换,msoFalse以0替换
 
去GOOGLE一下吧,"DELPHI POWERPOINT",相关资料很多
 
只用一个powerpoint控件就可以了?我现在不在自己的电脑旁边,要等回去才能试一下,请问这位大侠,能不能给个联系方式?qq或者什么的
 
大侠,你所用的有没有简单一点的报表打印控件?
 
没有,我报表大部分用WORD或EXCEL出
 
to madeagle
谢谢你,幻灯片的内容已经成功解决了,(msoTrue以1替换,msoFalse以0替换),能够运行,但是编译有个waring,说是1或0不能为nil什么的,应该不影响使用吧
大侠,能不能把你的数据库内容用word或excel输出的完整代码给我一份?(尤其是需要怎样对word和excel的输出格式的设置内容),还有就是,如果数据库中有图片能不能输出来呢?
 
顶部