PPT各页面上动画的播放时间,可取出的值总为1,但延时时间却能取对. PPT Delphi procedure TForm1.Button1Click(Sender: TObject);vari: integer;j: integer;tmpTime : single;tmpDelay : single;tmpStr : string;tmpType : integer;begintryFPPTA := CreateOL
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 页