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

Question

VB6为什么不能用PowerPoint2010的对象打开文档了?Set oPPTApp = CreateObject("PowerPoint.Application")
Set oPPTPres = oPPTApp.Presentations.Open(FileName, , , False)我是用上面两句代码创建的
本来在office2003上运行得很流畅
但是后来在别的电脑上有office2010就不行了，运行的很慢
尤其是在一张幻灯片上，如果有一些其他动作，比如单击一下飞出一个答案
显得非常慢，不知道原因
希望大家帮我，如果解决问题了，再追加100分

Answer 1

你先看看那电脑直接运行ppt是不是就很慢

Answer 2

Set oPPTApp = CreateObject("PowerPoint.Application")关闭oPPTApp 对象了么？
如果没关闭，重复执行很多遍oPPTApp是会很慢的。
2010很占内存滴。

Answer 3

在哪关闭？
怎么关闭？
在Set oPPTApp = CreateObject("PowerPoint.Application")
下面关闭？Set oPPTApp =Nothing这样？

Answer 4

用前期绑定，不用要后期绑定：
'我用的是PowerPoint 2003，先引用PowerPoint对象库：
Option Explicit
Dim PowerPoint As PowerPoint.ApplicationPrivate 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 SubPrivate Sub Form_Unload(Cancel As Integer)
    PowerPoint.Quit
    Set PowerPoint = Nothing
End Sub

Answer 5

1、前期绑定就是先引用PowerPoint对象库；
2、后期绑定就是直接定义对象：Set oPPTApp = CreateObject("PowerPoint.Application")，不用引用对象库。

Answer 6

奥，朋友的意思是用
dim powerpoint as powerpoint.application来代替
creatobject（）这句？

Answer 7

刚才没用电脑
现在用电脑了用你的方法改了一下，在office2010中还是很卡
Dim oPPTApp As PowerPoint.Application
不知道如何解决麻烦高手帮助

Answer 8

在两台电脑（2010,2013）上查下，PowerPoint.Application是不是都叫做这个名字。