PPT2000: 如何使用 presentations.Open 方法

文章翻譯 文章翻譯
文章編號: 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: 如何執行範例程式碼從眭舑恅梒

屬性

文章編號: 222758 - 上次校閱: 2006年10月11日 - 版次: 2.2
這篇文章中的資訊適用於:
  • Microsoft PowerPoint 2000 Standard Edition
關鍵字:?
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB222758 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:222758
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com