PPT2000: 如何使用 presentations.Open 方法

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:222758
本文已封存。本文係以「現狀」提供且不會再更新。
結論
本文將告訴您,如何使用 Microsoft Visual Basic 應用程式 Presentations.Open 方法。Open 方法開啟現有的 Microsoft PowerPoint 簡報。
其他相關資訊
Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。注意: 只在 PowerPoint 中的下列的巨集範例運作。Microsoft PowerPoint 檢視器不支援 Visual Basic 應用程式的巨集。如需詳細資訊按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:

參數

有四個參數,您可以用來控制 Open 方法的行為:

Name

DataType

Required

FileName

String

Yes

ReadOnly

Long

Optional

Untitled

Long

Optional

WithWindow

Long

Optional



檔案名稱

檔案名稱參數是簡報的路徑和想要開啟名稱。下列 Visual Basic 範例會開啟一個名為 test.ppt 位於 C:\ 根目錄的檔案。

   Sub OpenPresentation()      Presentations.Open "c:\test.ppt"   End Sub				

唯讀

唯讀參數用來開啟為唯讀的簡報。下列範例會開啟一個名為 test.ppt 為唯讀的檔案。

   Sub OpenPresentationReadOnly()      Presentations.Open "c:\test.ppt", msoTrue   End Sub				


msoTrue,參數會告訴 PowerPoint 開啟簡報 ReadOnly。test.ppt 開啟時,標題列會出現下列文字:
[test.ppt [唯讀]]
如果沒有指定 msoTrue 參數它設定為 msoFalse (預設),且簡報開啟為讀/寫。

未命名

未命名的參數用來建立簡報的複本。下列範例會開啟一份 test.ppt

   Sub OpenCopy()      Presentations.Open "c:\test.ppt", Untitled:=msoTrue   End Sub				


如果沒有指定 msoTrue 參數它設定為 msoFalse (預設),且檔案名稱只會顯示在標題列:
[] test.ppt

WithWindow

WithWindow 參數開啟簡報,而不做為可見。下列範例會開啟 test.ppt、 不會顯示它,然後關閉它。

   Sub OpenInvisible()      Dim MyPres As Presentation      Set MyPres = Presentations.Open("c:\test.ppt", _                                       WithWindow:=msoFalse)      ' Close the presentation.      MyPres.Close   End Sub				
注意: 當您看不見的簡報用完時,請確定關閉簡報。

如果沒有指定 msoFalse 參數它是設定為 msoTrue (預設值)。

這個程式碼範例:
Presentations.Open "c:\test.ppt", WithWindow:=msoTrue				
等同於這個程式碼範例:
Presentations.Open "c:\test.ppt"				

使用傳回的值

Open 方法傳回簡報的物件參考。一旦物件參考您可用它來存取方法和屬性的簡報。
   Sub GetReturnValue()      Dim MyPres As Presentation      Set MyPres = Presentations.Open("c:\test.ppt")      ' This counts the number of slides in test.ppt.      MsgBox MyPres.Slides.Count   End Sub				
注意: 若要使用方法的傳回值,設定為變數的方法],並將置於括號內的參數。

補漏白 Open 方法的錯誤

下列範例程式碼會示範如何使用 Open 方法時可能發生的錯誤可以補漏白:
   Sub ErrorTrapOpen()      On Error Resume Next      ' Clear all values in the Err object.      Err.Clear      Dim MyPres As Presentation      Set MyPres = Presentations.Open("c:\file does not exist.ppt")      ' If error occurred when opening the file, display the error message.      If Err.Number <> 0 Then         MsgBox Err.Description, vbCritical, "Error " & Err.Number      End If   End Sub				
[On Error Resume Next 陳述式可以讓巨集,才能繼續執行開始產生錯誤的陳述式之後的陳述式。如果不使用 On Error Resume Next 陳述式您會收到執行時期錯誤,如果該檔案無法開啟,而且巨集便會結束。在 Run-Time 時] 錯誤時則會將有關那個錯誤的資訊儲存在 Err 物件中。

Err 物件 的相關資訊,請參閱 「 Microsoft PowerPoint Office 小幫手 」 的內容。
参考
如需有關如何使用本文中的範例程式碼的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
212536OFF2000: 如何執行範例程式碼從眭舑恅梒
9.00 ppt9 vba vbe ppt2k powerpt vba2k ppt9.0 ppt2000 程式程式設計

警告:本文為自動翻譯

內容

文章識別碼:222758 - 最後檢閱時間:12/05/2015 13:26:38 - 修訂: 2.2

Microsoft PowerPoint 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB222758 KbMtzh
意見反應