如何在VBA中創建一個當其通訊錄加載項被加載時執行的Sub？

Question

我有一個VBA中的子程序，當我們打開PowerPoint演示文稿時執行，但我想在加載加載時執行該子程序。

我該怎麼做？

Answer 1

如果我正確理解你，你有一個加載項，只有在加載插件的時候，你纔想運行現有幻燈片的子程序。

如果是這樣，下面是如何做到這一點的說明：

1. 創建幻燈片組，將其保存爲 「Presentation3.pptm」（啓用宏 PPT 2007年）。打開VBE，把 下面的代碼：

   Sub AddText() 
   Dim p As Presentation 
   Set p = ActivePresentation 
   Dim sh As Shape 
   Set sh = p.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100) 
   sh.TextFrame.TextRange.Text = "hello there" 
   End Sub 
   

2. 創建一個加載了。創建另一個 甲板，進入VBE，換上這 任何模塊：

   Sub Auto_Open() 
   Dim p As Presentation 
   Set p = Presentations("Presentation3") 
   Application.Run (p.Name & "!AddText") 
   End Sub 
   

3. 現在保存該加載項爲PowerPoint 加載（.ppam）。安裝並加載 加載項（如果 未觸發，請嘗試再次卸載/加載），並且您應該在活動的 演示文稿中創建一個文本框 。

＃2注意：Application.Run (p.Name & "!AddText")。演示文稿名稱（包括擴展名）和「！」與子例程的名稱是需要在另一個演示文稿中運行宏。