100分 求助 VB6为什么不能用PowerPoint2010的对象打开文档了?

VB6为什么不能用PowerPoint2010的对象打开文档了?

Set oPPTApp = CreateObject("PowerPoint.Application")
Set oPPTPres = oPPTApp.Presentations.Open(FileName, , , False)

我是用上面两句代码创建的
本来在office2003上运行得很流畅
但是后来在别的电脑上有office2010就不行了，运行的很慢
尤其是在一张幻灯片上，如果有一些其他动作，比如单击一下飞出一个答案
显得非常慢，不知道原因
希望大家帮我，如果解决问题了，再追加100分 PowerPoint Visual Basic 6.0 2010 --------------------编程问答-------------------- 希望大家帮助我啊

在线等................................. --------------------编程问答-------------------- 你先看看那电脑直接运行ppt是不是就很慢 --------------------编程问答-------------------- 不慢，一点也不慢

直接运行很流畅啊 --------------------编程问答-------------------- Set oPPTApp = CreateObject("PowerPoint.Application")

关闭oPPTApp 对象了么？
如果没关闭，重复执行很多遍oPPTApp是会很慢的。
2010很占内存滴。 --------------------编程问答-------------------- 在哪关闭？
怎么关闭？
在Set oPPTApp = CreateObject("PowerPoint.Application")
下面关闭？

Set oPPTApp =Nothing

这样？




--------------------编程问答-------------------- 用前期绑定，不用要后期绑定：

'我用的是PowerPoint 2003，先引用PowerPoint对象库：

Option Explicit

Dim PowerPoint As PowerPoint.Application



Private Sub Command1_Click()

        On Error GoTo Errhandler

        CommonDialog1.Filter = "PowerPoint(*.pot)|*.pot|AllFile(*.*)|*.*"

        CommonDialog1.FilterIndex = 1

        CommonDialog1.ShowOpen

        Set PowerPoint = New PowerPoint.Application

        PowerPoint.Presentations.Open CommonDialog1.FileName, , , msoFalse

        

        Application.Visible = True

        'PowerPoint.Visible = True

        'Application.DisplayAlerts = False '不提示保存

                

Errhandler:

        

End Sub



Private Sub Form_Unload(Cancel As Integer)

    PowerPoint.Quit

    Set PowerPoint = Nothing

End Sub

--------------------编程问答-------------------- 什么叫前期绑定？
哪句代码是前期绑定？
说清楚点才能给你分啊 --------------------编程问答--------------------

引用 7 楼 ok100fen 的回复:

什么叫前期绑定？
哪句代码是前期绑定？
说清楚点才能给你分啊

1、前期绑定就是先引用PowerPoint对象库；
2、后期绑定就是直接定义对象：Set oPPTApp = CreateObject("PowerPoint.Application")，不用引用对象库。
--------------------编程问答-------------------- 奥，朋友的意思是用
dim powerpoint as powerpoint.application来代替
creatobject（）这句？

--------------------编程问答-------------------- 刚才没用电脑
现在用电脑了

用你的方法改了一下，在office2010中还是很卡
Dim oPPTApp As PowerPoint.Application
不知道如何解决

麻烦高手帮助 --------------------编程问答-------------------- up

补充：VB ,  多媒体