登入

Select the product you need help with

PPT：如何建立 PowerPoint 97 增益集

文章編號: 163461 - 檢視此文章適用的產品。

結論

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

回此頁最上方 | 提供意見

其他相關資訊

Microsoft 僅，為了說明提供程式設計範例，不提供任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能，但它們不會修改這些範例以提供附加功能或建構程序，以符合您特定需求。

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

啟動 PowerPoint 並建立空白的簡報。
在 [工具] 功能表上指向 [巨集，然後按一下 [Visual Basic 編輯器]。
在 Visual Basic 編輯器] 中，按一下在 [插入] 功能表上的模組。

在 [模組] 視窗中輸入下列程式碼。

注意：您可以用取代下列程式碼程式碼。

      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 檔案

按一下 [偵錯] 功能表編譯 VBAProject。

如果您的程式碼編譯錯誤將無法建立增益集。

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

步驟 5-載入增益集

在 [工具] 功能表上按一下 [增益集]。
按一下 [新增新的。
在加入新 PowerPoint 增益功能新檔] 對話方塊選取增益集檔案在「步驟 4-建立 [PPA 檔案」一節中建立。按一下 [確定]。
巨集警告訊息方塊中按一下 [啟用巨集]。

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

現在執行 Auto_Open 巨集。

如需如何使用 PowerPoint 物件模型來載入增益集，請按一下 [Office 小幫手]，鍵入「已載入屬性」資訊，按一下 [搜尋]，]，然後再按一下以檢視」已載入的屬性]。

注意：如果隱藏 [小幫手] 按一下 [一般] 工具列上的 [Office 小幫手] 按鈕。如果您的電腦未安裝 Visual Basic 說明，請參閱下列文「 Microsoft 知識庫」中：如何新增或移除單一的 Office 程式或元件

步驟 6-卸載增益集

若要卸載增益集使用下列步驟：

在 [工具] 功能表上按一下 [增益集]。
從可用的增益集] 清單選取您想要卸載，增益集]，然後按一下 [解除載入] 或 [移除]。

當您按一下 [解除載入增益集是已卸載，但它仍會保留在 [可用的增益集] 清單上。當您按一下 [移除增益集被卸載，並它從 [可用的增益集] 清單中移除。

現在執行 Auto_Close 巨集。

如需如何使用 PowerPoint 物件模型來載入增益集，請按一下 [Office 小幫手]，鍵入「已載入屬性」資訊，按一下 [搜尋]，]，然後再按一下以檢視」已載入的屬性]。

注意：如果隱藏 [小幫手] 按一下 [一般] 工具列上的 [Office 小幫手] 按鈕。如果您的電腦未安裝 Visual Basic 說明，請參閱下列的「 Microsoft 知識庫」中文件：

120802

(http://support.microsoft.com/kb/120802/EN-US/ )

如何新增/移除單一的 Office 程式或元件

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

當您將簡報儲存為增益集時，PowerPoint 就不會保護您的原始程式碼。您可以保護您的程式碼，使用一個密碼使用下列步驟執行。

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

在 [工具] 功能表上按一下 [VBAProject 內容，然後按一下 [保護] 索引標籤。
按一下以選取 [鎖定專案的檢視] 核取方塊。
在 [密碼若要檢視專案屬性] 下，輸入 [密碼] 和 [確認密碼] 方塊中您想要的密碼。
按一下 [確定]。

現在需要密碼才能檢視您的原始程式碼。

回此頁最上方 | 提供意見

?考

如需有關如何取得應用程式的說明與 Visual Basic 的詳細資訊，請參閱「 Microsoft 知識庫」中下列文：

163435

(http://support.microsoft.com/kb/163435/EN-US/ )

應用程式的 Visual Basic 的程式設計資源

回此頁最上方 | 提供意見

屬性

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

這篇文章中的資訊適用於:

Microsoft PowerPoint 98 for Macintosh
Microsoft PowerPoint 97 Standard Edition

kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB163461 KbMtzh

機器翻譯

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

按一下這裡查看此文章的英文版本：163461

(http://support.microsoft.com/kb/163461/en-us/ )

Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

依現狀不再更新的知識庫內容免責聲明

本文旨在說明 Microsoft 不再提供支援的產品。因此，本文係依「現狀」提供，不會再更新。

回此頁最上方 | 提供意見