我只会用server页的:TPowerPointApplication; TPowerPointSlide; TPowerPointPresentation组件
...............
procedure TForm1.Bitbtn1onClick(....)
begin
PowerPointApplication.Connect;
PowerPointApplication.visible:=1;
PowerPointSlide1.connectTo(PowerPointPresentation1.Slides.Add(PowerPointPresentation1.Slides.Count+1,1));
with PowerPointSlide1 do
RunSlideShow.Enabled := true;
Layout := 10;
FollowMasterBackground := 0;
Background.Fill.PresetGradient(2,2,10);
Shapes.Item(1).TextFrame.TextRange.InsertAfter('Hello world');//set text;
DBImage1.copyToClipboard;//set picture
Shapes.Item(2).Delete;
Shapes.Paste;
Shapes.Item(2).left := ...
.......
SlideShowTransition.AdvanceOnTime := 1;
SlideShowTransition.AdvanceTime := 2;
....