其实你创建了ole对象后,每一个对象的操作方法都可以是用比如;
var pp,Presentations,slide:variant;
begin
....
   Presentations:=createoleobject('excel.Presentations');
   pp:=Presentations.application;
   ....
   slide:=pp.ActivePresentation.Slides.Add(2,ppLayoutText).Select
ActivePresentation.Slides.Add(2,ppLayoutText).Select
就是vba的方法,没什么区别吧?你只要清楚各个对象的关系就行哦,对了,你得将ppLayoutText常量改成数值,否则编译不过去

解决方案 »

  1.   

    其实你创建了ole对象后,每一个对象的操作方法都可以是用比如;
    var pp,Presentations,slide:variant;
    begin
    ....
       Presentations:=createoleobject('excel.Presentations');
       pp:=Presentations.application;
       ....
       slide:=pp.ActivePresentation.Slides.Add(2,ppLayoutText).Select
    ActivePresentation.Slides.Add(2,ppLayoutText).Select
    就是vba的方法,没什么区别吧?你只要清楚各个对象的关系就行哦,对了,你得将ppLayoutText常量改成数值,否则编译不过去
      

  2.   

    Presentations:=createoleobject('Powerpoint.Presentations');
      

  3.   

    把你的问题讲得详细点.如果作过三层结构的话你就应该知道调用的方法
    和属性都是类似于应用程序服务器的方法和属性找一本有关vba编程的书,,把那些对象和集合搞懂点先.
      

  4.   

    小弟是新手啊,很多东西都不懂。还要大家多多帮助才是。我的大体意思就是。用DELPHI对POWERPOINT进行操作,比如新建幻灯片,加入一些图片,AVI,FLASH等。有没有相关的文章?我是刚刚开始学的~~
      

  5.   

    vba你不是很熟嘛?
    你对应于powerpoint的对象声明几个olevariant变量,然后创建它们var pp,Presentations,slide:olevariant;  //刚才变量类型错
    begin
    ....
       Presentations:=createoleobject('powerpoint.Presentation');  //创建Presentation对象
       pp:=Presentations.application;  //得到应用实例
       pp.visible:=True;               //可视
       ....   //创建其它powerpoint
       slide:=pp.ActivePresentation.Slides.Add(2,ppLayoutText).Select
    //在当前Presentation添加一张幻灯片
    创建对象后你就可以利用这些对象的方法,比如像上一句
    (感觉像在重复)
    你最好先看一下excel读取数据的帖子,有一些操作方法可以借鉴
      

  6.   

    vba不熟啊~我只是在POWERPOINT里用宏录下后可以看到VBA的源码。所以想在DELPHI中用VBA的东西。比较方便一些~~
    Powerpoint.Pressentation相关的对象方法有没有比较全的?我想看看呀~~