在 PowerPoint 2000 中的巨集程式設計 PPT2000: 簡介

文章翻譯 文章翻譯
文章編號: 222771 - 檢視此文章適用的產品。
全部展開 | 全部摺疊

在此頁中

結論

本文將告訴您,建立簡單的 Microsoft Visual Basic 應用程式在 Microsoft PowerPoint 內的巨集的步驟。您建立巨集將您簡報設定一張投影片的背景材質、 設定投影片計時並執行投影片放映中加入一張投影片。

本文旨在為您介紹的一些工具和概念您需要成為一個巨集程式設計人員。

其他相關資訊

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

建立新的簡報

  1. 按一下 [檔案] 功能表 新增]。這會開啟 [新增簡報] 對話方塊。
  2. 選取 [一般] 索引標籤 上的 [空白簡報] 圖示,然後按一下 [確定]。 這樣會開啟 [新投影片] 對話方塊。
  3. 按一下以選取 空白的 [自動版面配置,位於右下角,然後按一下 [確定]
現在,您可以開啟,就緒若要建立巨集的空白簡報。

建立巨集

  1. 在 [工具] 功能表上指向 [巨集,然後按一下 [巨集]。這會開啟 [巨集] 對話方塊。
  2. 在 [巨集 名稱] 方塊中鍵入您的巨集的名稱。名稱必須以字母開頭,而且可以包含多達 80 個字元。Visual Basic 應用程式的關鍵字是巨集的無效名稱。名稱不能包含任何空格。程式設計人員通常使用底線 character(_) 分隔的單字。

    不要擔心有關嘗試要記得命名巨集的所有規則。 如果您輸入了無效的巨集名稱,PowerPoint 會顯示一個訊息,類似下列的對話方塊:
    macro name 不是有效名稱的巨集
    如果您看到此訊息,只保留嘗試,直到您找到 PowerPoint 會接受一個名稱。
  3. 按一下 [建立]。這會開啟 Visual Basic 編輯器。Visual Basic 編輯器是您可以用它來建立、 編輯,和偵錯您的巨集的應用程式。

將程式碼加入至新的巨集

您現在應該在程式碼視窗] 中一個閃爍游標應該尋找。 程式碼視窗是您實際鍵入 Visual Basic 指令。也可以在程式碼視窗中檢視錄製的巨集。在大多數的情況下,程式碼視窗的作用就像是一樣,讓您可以剪下、 複製,及貼上文字以一般文字編輯器。但是,有讓您建立巨集更容易一些差異。重要的差異的詳細資訊如下。
  1. 輸入下列命令的 Sub 和 End Sub 之間的程式碼:
    Dim MySlide As Slide
    						
    當您在程式碼中鍵入時,您可能注意到一些有趣的事情發生。按空格後面"as"這個字之後可用的資料類型的清單會出現在螢幕上。這只是之一 Visual Basic 編輯器使程式設計稍微更容易的方法。

    這個程式碼的作用何在?

    Dim

    Indicates to the Visual Basic Editor you are about to declare a variable. There are several other methods available to declare variables, but this article discusses only the Dim method.

    MySlide

    Is the name you provide the variable. It is a good idea to give your variables meaningful descriptive names. X is an example of a poor variable name. Meaningful names make your code easier to read.

    As Slide

    Specifies the type of data the variable will contain. Inthis case, MySlide will have the data type Slide.

  2. 讓我們加入一些更多的程式碼。在變數宣告之後輸入下行程式碼:
    Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)
    						
    這個程式碼將使用中簡報新增一張新投影片。在投影片建立時使用僅顯示標題自動版面配置。

    Set MySlide

    Assigns an object reference to a variable or property. Using Set makes it easier to refer to that same object later in your code.

    ActivePresentation

    Tells the Visual Basic Editor you are referring to the presentation that is open in the active window.

    Add(1, ppLayoutTitle)

    Creates a new slide and adds it to the collection of slides in the presentation. The Add method takes two parameters:

    The first parameter, the slide index, is the number 1 in this case. The slide index is the position where PowerPoint creates the slide. When the index is set to 1, PowerPoint creates the new slide at the beginning of the presentation.

    The second parameter specifies the type of AutoLayout.

    如需有關如何以程式設計方式建立投影片的詳細資訊,請按一下 [說明] 功能表上的 [Microsoft PowerPoint 說明,並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 新增投影片 再按一下 [搜尋] 以檢視主題。
    投影片可用的自動版面配置的相關資訊,請按一下 [說明] 功能表上的 [Microsoft PowerPoint 說明,並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 PpPlaceHolder 類型 再按一下 [搜尋] 以檢視主題。
    TIP: 當您輸入程式碼,如果屬性與方法清單會出現時,您可以選取項目想,然後按 TAB 鍵將物件加入您的命令並留在同一行上的資料指標。 現在您的巨集程式碼應該看如下所示:
          Sub YourMacro ()
             '
             ' Macro created 1/7/97 by You
             '
             Dim MySlide As Slide
             Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)
    
          End Sub
    注意: 文字下列 ' 所有格符號 (在同一行) 都是註解。註解會被忽略 Visual Basic 編輯器。它們會加入程式碼,以讓您更容易瞭解。

    現在,您的巨集實際上執行某些動作,請嘗試執行巨集。

執行該巨集

有數種方法,若要執行巨集。只有一個方法是由本文所述。
  1. 從 [檔案] 功能表中按一下 [關閉],並返回 Microsoft PowerPoint]。Visual Basic 編輯器] 會關閉,並回到 PowerPoint]。
  2. 在 [工具] 功能表上指向 [巨集,然後按一下 [巨集]。這樣會開啟 [巨集] 對話方塊。
  3. 從清單中選取您的巨集,然後按一下 [執行]
PowerPoint 會將新的投影片新增簡報的開頭。

檢視巨集程式碼

如果要檢視特定的巨集的原始程式碼,請依照下列步驟執行:
  1. 在 [工具] 功能表上指向 [巨集,然後按一下 [巨集]。[巨集] 對話方塊隨即出現。
  2. 按一下您想要編輯巨集。巨集的名稱應該反白顯示。
  3. 按一下 [編輯 按鈕。這會開啟巨集 Visual Basic 編輯器內。Visual Basic 編輯器是您可在其中進行校正移除不必要的步驟,或新增無法錄製在 PowerPoint 中的指示。

加入一些更多的程式碼

現在我們已經準備好新增其餘部分來完成巨集指令。
  1. 將下一個的一行的程式碼加入您的巨集:
    ActiveWindow.ViewType = ppViewSlideSorter
    						
    這變更簡報投影片檢視模式。這樣您就可以選取整張投影片,請新增此選項。
    PowerPoint 檢視的相關資訊,請按一下 [說明] 功能表上的 [Microsoft PowerPoint 說明,並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 檢視 然後按一下 [搜尋] 以檢視主題。
  2. 將下一個的一行的程式碼加入您的巨集:
    MySlide.Select
    						
    這個程式碼會選取您建立投影片。MySlide 是您使用 Dim 陳述式建立的物件參考。
  3. 加入您的巨集的下一個程式碼區段:
          With ActiveWindow.Selection.SlideRange
             .FollowMasterBackground = msoFalse
             .Background.Fill.PresetTextured msoTextureRecycledPaper
          End With
    						
    這些指令此特定的投影片不遵循在母片,然後組背景預設材質回收紙張面的方法告訴 PowerPoint。 With 陳述式可讓您有一般參考的群組命令。如果您使用與分組多個命令時,您可以改進效能的巨集,以及節省很多的輸入。
    如果您不使用 With 陳述式,程式碼看起來類似下列:
          ActiveWindow.Selection.SlideRange.FollowMasterBackground = msoFalse
          ActiveWindow.Selection.SlideRange.Background.Fill.PresetTextured _
             msoTextureRecycledPaper
    						
    第二行中的底線會接續字元。它會告知 Visual Basic 編輯器,您可能不適合在同一行上的特定命令,並會在下一行繼續指令。 您可以看到使用 With 陳述式 ; 的優點較少打字速度更快的程式碼。With 陳述式唯一的缺點是它有時候程式碼更難特別,讀取,如果您使用巢狀內另 With 陳述式與。
  4. 將下一個的一行的程式碼加入您的巨集:
    MySlide.Shapes.Title.TextFrame.TextRange.Text = "Look What I Did!"
    						
    這個命令會將 「 聽什麼我嗎 ! 」 的文字到您建立投影片的標題方塊。
  5. 加入您的巨集的下一個程式碼區段:
          With ActivePresentation.Slides.Range.SlideShowTransition
             .AdvanceTime = 5
             .EntryEffect = ppEffectCheckerboardAcross
          End With
    						
  6. 將程式碼的最後一個的一行加入您的巨集:
    ActivePresentation.SlideShowSettings.Run
    						
    這個程式碼開始投影片放映。

完成巨集程式碼



   Sub YourMacro()
      '
      ' Macro created <Date> by <You>
      '
      Dim MySlide As Slide

      ' Add a new slide to the presentation.
      Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)

      ' Change the presentation to slide sorter view.
      ActiveWindow.ViewType = ppViewSlideSorter

      ' Select your slide.
      MySlide.Select

      ' Apply a preset texture to the slide.
      With ActiveWindow.Selection.SlideRange
         .FollowMasterBackground = msoFalse
         .Background.Fill.PresetTextured msoTextureRecycledPaper
      End With

      ' Add text into title of the slide.
      MySlide.Shapes.Title.TextFrame.TextRange.Text = "Look What I Did!"

      ' Set the slide timing and transition effect.
      With ActivePresentation.Slides.Range.SlideShowTransition
         .AdvanceTime = 5
         .EntryEffect = ppEffectCheckerboardAcross
      End With

      ' Start the slide show.
      ActivePresentation.SlideShowSettings.Run

   End Sub
				

?考

如需有關如何使用本文中的範例程式碼的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
212536OFF2000: 如何執行範例程式碼從眭舑恅梒

屬性

文章編號: 222771 - 上次校閱: 2006年10月11日 - 版次: 2.2
這篇文章中的資訊適用於:
  • Microsoft PowerPoint 2000 Standard Edition
關鍵字:?
kbmt kbcode kbdtacode kbmacro kbprogramming KB222771 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:222771
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