文章編號: 222737 - 上次校閱: 2006年10月11日 - 版次: 2.2

如何在 PowerPoint 2000 建立 PowerPoint 增益集

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
本文章的有 Microsoft PowerPoint 97] 版本請參閱 163461? (http://support.microsoft.com/kb/163461/ ) 。

在此頁中

全部展開 | 全部摺疊

結論

本文將告訴您，如何建立增益集在 Microsoft PowerPoint 使用 Microsoft Visual Basic 應用程式。範例巨集 (Sub 程序) 新增至 [工具] 功能表可讓您變更您的檢視投影片檢視模式，如果您已經並非在投影片瀏覽模式中的指令。
回此頁最上方

其他相關資訊

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。注意： 只在 PowerPoint 中的下列的巨集範例運作。Microsoft PowerPoint 檢視器不支援 Visual Basic 應用程式的巨集。如需詳細資訊按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]：
回此頁最上方

步驟 1-建立增益集程式碼


若要建立的增益集程式碼，請依照下列步驟執行：
  1. 啟動 PowerPoint 並建立空白的簡報。
  2. 在 [工具] 功能表上指向 [巨集，然後按一下 [Visual Basic 編輯器]。
  3. 在 Visual Basic 編輯器] 中，按一下 單元，在 [插入] 功能表上。
  4. 在 [模組] 視窗中輸入下列程式碼。注意： 您可以取代下列程式碼程式碼。
          Sub ChangeView()

         ' Check to see whether a presentation is open.
         If Presentations.Count <> 0 Then
            If ActiveWindow.ViewType <> ppViewSlideSorter Then
               ActiveWindow.ViewType = ppViewSlideSorter
            End If
         Else
            MsgBox "No presentation open. Open a presentation and " _
               & "run the macro again.", vbExclamation
         End If
      End Sub
    注意： 前面加一個單引號 (') 上 A 列介紹程式碼中的註解。註解會提供來說明程式碼做從程序中的特定點什麼。此文字是選擇性的而且可能會從您的程式碼中排除。
回此頁最上方

步驟 2-建立 Auto_Open 巨集

Auto_Open 巨集儲存為您增益集，初始化程式碼並自動執行增益集載入由 PowerPoint 時。下列程式碼新增至您的增益集程式碼會執行 [工具] 功能表指令 (變更為投影片瀏覽)。 
   Sub Auto_Open()

      Dim NewControl As CommandBarControl

      ' Store an object reference to a command bar.
      Dim ToolsMenu As CommandBars

      ' Figure out where to place the menu choice.
      Set ToolsMenu = Application.CommandBars

      ' Create the menu choice. The choice is created in the first
      ' position in the Tools menu.
      Set NewControl = ToolsMenu("Tools").Controls.Add _
                       (Type:=msoControlButton, _
                        Before:=1)

      ' Name the command.
      NewControl.Caption = "Change to Slide Sorter"

      ' Connect the menu choice to your macro. The OnAction property
      ' should be set to the name of your macro.
      NewControl.OnAction = "ChangeView"

   End Sub
回此頁最上方

步驟 3-建立 Auto_Close 巨集

當增益集卸載由 PowerPoint 時，便會執行 Auto_Close 巨集。Auto_Close 巨集儲存您的清除程式碼。下列程式碼移除您加入本文 ＜ 建立 Auto_Open 巨集 」 一節中的 [工具] 功能表的命令。 
   Sub Auto_Close()

      Dim oControl As CommandBarControl
      Dim ToolsMenu As CommandBars

      ' Get an object reference to a command bar.
      Set ToolsMenu = Application.CommandBars

      ' Loop through the commands on the tools menu.
      For Each oControl In ToolsMenu("Tools").Controls

            ' Check to see whether the comand exists.
            If oControl.Caption = "Change to Slide Sorter" Then

              ' Check to see whether action setting is set to ChangeView.
              If oControl.OnAction = "ChangeView" Then

                  ' Remove the command from the menu.
                  oControl.Delete
               End If
            End If
      Next oControl

   End Sub
回此頁最上方

步驟 4-建立.ppa 檔案

如果要建立.ppa 檔案，請依照下列步驟執行：
  1. 按一下 [偵錯] 功能表編譯 VBAProject。如果您的程式碼編譯錯誤將無法建立增益集。
    注意： 此步驟只是需要未選取自動進行語法檢查] 選項在 Visual Basic 編輯器] 中。若要開啟或關閉這個選項，請依照下列步驟執行：
    1. 按一下 [工具] 功能表上的 [選項]，然後按一下 [編輯器] 索引標籤。
    2. 按一下以清除或選取 [自動進行語法檢查] 核取方塊，然後按一下 [確定]。
    如果目前選取此選項時請直接跳到步驟 2。
  2. 儲存簡報。
    1. 在 [檔案] 功能表上按一下 [關閉]，並返回 Microsoft PowerPoint]。
    2. 在 [檔案] 功能表上按一下 [另存]。
    3. 選取 簡報 (*.ppt)儲存類型] 清單中。
    4. 命名為簡報，然後按一下 [儲存檔案。
    您的增益集程式碼現在已經儲存在簡報中。
  3. 建立.ppa 檔案。
    1. 在 [檔案] 功能表上按一下 [另存]。
    2. 選取 PowerPoint 增益集 (*.ppa)儲存類型] 清單中。
    3. 在 檔案名稱] 方塊中鍵入您的增益功能的名稱，然後按一下 [儲存]。
    通常，PowerPoint 增益集被位於 c:\Program Files\ Microsoft Office\Office 資料夾。但是，您可以選擇另一個資料夾，如果您想。
回此頁最上方

步驟 5-載入增益集

若要載入增益集，請依照下列步驟執行：
  1. 在 [工具] 功能表上按一下 [增益集]。
  2. 按一下 [新增新檔]。
  3. 在 加入新 PowerPoint 增益功能 新檔] 對話方塊選取增益集檔案在 「 步驟 4-建立 [PPA 檔案 」 一節中建立。按一下 [確定]。
  4. 巨集警告訊息方塊中按一下 [啟用巨集]。

    注意：如果您收到來自不明來源的增益集檔案，您應該按一下 停用巨集。

    現在執行 Auto_Open 巨集。
如需有關如何使用 PowerPoint 物件模型來載入增益集的資訊，請按一下 [Office 小幫手]，鍵入 載入屬性]、 按一下 [搜尋，然後再按一下以檢視 已載入屬性]。

如需詳細資訊按一下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項:
222685? (http://support.microsoft.com/kb/222685/EN-US/ ) PPT2000： 如何自動載入 PowerPoint 增益集
回此頁最上方

步驟 6-卸載增益集

若要卸載增益集，請依照下列步驟執行：
  1. 在 [工具] 功能表上按一下 [增益集]。
  2. 從 可用的增益集] 清單選取您想要卸載，增益集]，然後按一下 [解除載入] 或 [移除]。當您按一下 [解除載入增益集是已卸載，但它仍會保留在 [可用的增益集] 清單上。當您按一下 [移除增益集被卸載，並它從 [可用的增益集] 清單中移除。

    現在執行 Auto_Close 巨集。
回此頁最上方

步驟 7-您的增益集以密碼保護

當您將簡報儲存為增益集時，PowerPoint 就不會保護您的原始程式碼。您可以保護您的程式碼，以密碼。要這麼做，請您執行下列步驟：

注意： 在儲存增益集之前，您必須保護您的專案使用的密碼。

  1. 在 [工具] 功能表上按一下 [VBAProject 內容，然後按一下 [保護] 索引標籤。
  2. 按一下以選取 [鎖定專案的檢視] 核取方塊。
  3. 在 [檢視專案內容至密碼，輸入 [密碼] 及 [確認密碼] 方塊中您想要的密碼。
  4. 按一下 [確定]。現在需要密碼才能檢視您的原始程式碼。
回此頁最上方

?考

如需有關如何使用本文中的範例程式碼的詳細資訊，按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]：
212536? (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000： 如何執行範例程式碼從眭舑恅梒
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft PowerPoint 2000 Standard Edition
回此頁最上方
關鍵字：?
kbmt kbautomation kbvba kbaddin kbcode kbdtacode kbhowto kbmacro kbprogramming KB222737 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：222737? (http://support.microsoft.com/kb/222737/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。