鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

delphi控制ppt

来源:互联网 作者:佚名 时间:2015-11-04 09:11
PPT各页面上动画的播放时间,可取出的值总为1,但延时时间却能取对. PPT Delphi procedure TForm1.Button1Click(Sender: TObject);vari: integer;j: integer;tmpTime : single;tmpDelay : single;tmpStr : string;tmpType : integer;begintryFPPTA := CreateOL
PPT各页面上动画的播放时间,可取出的值总为1,但延时时间却能取对. PPT Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
j: integer;
tmpTime : single;
tmpDelay : single;
tmpStr : string;
tmpType : integer;
begin
try
FPPTA := CreateOLEObject('PowerPoint.Application');
except
application.MessageBox('连接 PowerPoint 失败.', '', 0);
exit;
end;
//FPPTA.Connect;
Fppta.Presentations.Open('c:\aa1.ppt', 0, 0, 0);
memo1.lines.clear;
for i := 1 to Fppta.Presentations.item(1).Slides.count do
begin
memo1.Lines.add('第 '+ inttostr(i)+' 页');
for j := 1 to Fppta.Presentations.item(1).Slides.item(i).TimeLine.MainSequence.Count do
begin
tmpTime :=Fppta.Presentations.item(1).Slides.item(i).TimeLine.MainSequence.item(j).Timing.speed;//动画播放的时间
tmpdelay := Fppta.Presentations.item(1).Slides.item(i).TimeLine.MainSequence.item(j).Timing.TriggerDelayTime;//播放动画前的延时
tmpType := Fppta.Presentations.item(1).Slides.item(i).TimeLine.MainSequence.item(j).Timing.TriggerType;//动画触发的类型
case tmpType of
$FFFFFFFF: tmpStr := #9'混合'#9; // msoAnimTriggerMixed = ;
$00000000: tmpStr := #9'无'#9; //msoAnimTriggerNone = ;
$00000001: tmpStr := #9'单击页面'#9 ; //msoAnimTriggerOnPageClick = ;
$00000002: tmpStr := #9'与上一个同时'#9 ; //msoAnimTriggerWithPrevious = ;
$00000003: tmpStr := #9'继前一个后'#9 ; //msoAnimTriggerAfterPrevious = ;
$00000004: tmpStr := #9'单击形状'#9; //msoAnimTriggerOnShapeClick = ;
end;
memo1.Lines.add(tmpStr + floattostr(tmpTime) + #9 + floattostr(tmpDelay));
end;
end;
end;
第 1 页
继前一个后 1 0
第 2 页
第 3 页
继前一个后 1 0
第 4 页
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
第 5 页
第 6 页
单击页面 1 0
与上一个同时 1 0
继前一个后 1 0
继前一个后 1 0
与上一个同时 1 0
继前一个后 1 0
继前一个后 1 3
继前一个后 1 0
第 7 页
单击页面 1 0
与上一个同时 1 0
继前一个后 1 0
继前一个后 1 0
继前一个后 1 3
第 8 页
单击页面 1 0
继前一个后 1 3
继前一个后 1 3
继前一个后 1 3
与上一个同时 1 3
与上一个同时 1 3
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
与上一个同时 1 0
继前一个后 1 0
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
继前一个后 1 0
继前一个后 1 3
与上一个同时 1 3
第 9 页
第 10 页
单击页面 1 0
与上一个同时 1 0
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
与上一个同时 1 3
继前一个后 1 3
第 11 页
继前一个后 1 0
与上一个同时 1 0
继前一个后 1 0
单击页面 1 0
与上一个同时 1 0
与上一个同时 1 0
继前一个后 1 0
第 12 页
第 13 页
第 14 页
第 15 页 
网友评论
<