我想在olecontainer中创建一个powerpoint对象,然后能够对它进行编辑,如插入一条声音数据,如何实现?(200分)

  • 主题发起人 主题发起人 zhwenh
  • 开始时间 开始时间
Z

zhwenh

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在olecontainer中创建一个powerpoint对象,然后能够对它进行编辑,如插入一条声音数据,如何实现?
word ,excel可以,怎么powerpoint 就嵌不进Ole里呢?
有人能回答,给200分。
 
我只会用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;
....
 
接受答案了.
 
后退
顶部