VB6為什么不能用PowerPoint2010的物件打開檔案了?
Set oPPTApp = CreateObject("PowerPoint.Application")
Set oPPTPres = oPPTApp.Presentations.Open(FileName, , , False)
我是用上面兩句代碼創建的
本來在office2003上運行得很流暢
但是后來在別的電腦上有office2010就不行了，運行的很慢
尤其是在一張幻燈片上，如果有一些其他動作，比如單擊一下飛出一個答案
顯得非常慢，不知道原因
希望大家幫我，如果解決問題了，再追加100分
uj5u.com熱心網友回復：
希望大家幫助我啊在線等.................................
uj5u.com熱心網友回復：
你先看看那電腦直接運行ppt是不是就很慢uj5u.com熱心網友回復：
不慢，一點也不慢直接運行很流暢啊
uj5u.com熱心網友回復：
Set oPPTApp = CreateObject("PowerPoint.Application")關閉oPPTApp 物件了么？
如果沒關閉，重復執行很多遍oPPTApp是會很慢的。
2010很占記憶體滴。
uj5u.com熱心網友回復：
在哪關閉？怎么關閉？
在Set oPPTApp = CreateObject("PowerPoint.Application")
下面關閉？
Set oPPTApp =Nothing
這樣？
uj5u.com熱心網友回復：
用前期系結，不用要后期系結：'我用的是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
uj5u.com熱心網友回復：
什么叫前期系結？哪句代碼是前期系結？
說清楚點才能給你分啊
uj5u.com熱心網友回復：
1、前期系結就是先參考PowerPoint物件庫；
2、后期系結就是直接定義物件：Set oPPTApp = CreateObject("PowerPoint.Application")，不用參考物件庫。
uj5u.com熱心網友回復：
奧，朋友的意思是用dim powerpoint as powerpoint.application來代替
creatobject（）這句？
uj5u.com熱心網友回復：
剛才沒用電腦現在用電腦了
用你的方法改了一下，在office2010中還是很卡
Dim oPPTApp As PowerPoint.Application
不知道如何解決
麻煩高手幫助
uj5u.com熱心網友回復：
upuj5u.com熱心網友回復：
在兩臺電腦（2010,2013）上查下，PowerPoint.Application是不是都叫做這個名字。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122895.html
標籤：多媒體
上一篇：設計兩個超長位整數的四則運算（要求不得少于15位）生成形如的運算格式：
下一篇：vb 保存網頁圖示