如何使用 VBA 創建幻燈片並將其添加到 PowerPoint 演示文稿中？

幾天前，一位讀者詢問有一種方法可以從頭開始自動創建 PowerPoint 演示文稿，然後快速將幻燈片添加到現有演示文稿中。我認為該腳本可能在最有用的 PowerPoint 宏列表中名列前茅。

正如我們過去所指出的，PowerPoint 不包含宏記錄器（這與 Excel 和 Word 不同，它們都內置了宏記錄器）。因此，我們留下了很好的舊 Visual Basic for Application，我們可以使用它來創建簡單的宏來自動化 PowerPoint。PowerPoint 自動化還有其他替代方案，但這些超出了本教程的範圍。

在今天的簡短教程中，我們將介紹三個不同的用例：

新的演示文稿創建（空白或使用模板）
將幻燈片添加到現有演示文稿。
上述兩種情況的混合（從頭開始創建和添加幻燈片）

讓我們開始吧。

看看絲帶。如果您沒有在菜單中看到開發人員條目，則在開始編碼之前，您需要啟用開發人員選項卡。

使 Developer 菜單可見您的功能區後，繼續並點擊Developer，然後點擊Visual Basic按鈕（或直接點擊 Alt+F11）以打開 Visual Basic IDE。

VBA 創建 PowerPoint 演示文稿

在 VB 編輯器中，右鍵單擊 VBAProject 並點擊Insert。
選擇模塊。
將以下代碼粘貼到新創建的模塊中。

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

點擊文件，然後保存。
要運行您的代碼，請點擊運行，然後選擇運行子/用戶表單（或簡單的 F5）。
關閉 VB 編輯器。

VBA插入幻燈片

在 VB 編輯器中，右鍵單擊 VBAProject 並點擊插入。
選擇模塊
將以下代碼粘貼到新創建的模塊中。

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

點擊文件，然後保存。
要運行您的代碼，請點擊運行，然後選擇運行子/用戶表單（或簡單的 F5）。
關閉 VB 編輯器。

用於設置新演示文稿並添加幻燈片的宏

那隻是將上面概述的兩個片段混合在一起。

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

接下來，您可能會查看我們關於使用 VBA在 PowerPoint 中以編程方式創建形狀的教程

從 Excel 生成 PowerPoint 演示文稿

最後一種情況是您想直接從 Excel 電子表格創建 PowerPoint 演示文稿。您可以在 Word 和其他 Microsoft 365 應用程序中使用相同的技術。

將電子表格鏈接到 PowerPoint 數據模型（從工具>>參考）
在 Excel 電子表格中插入一個按鈕（開發人員 >> 插入，然後選擇一個命令按鈕）。
將下面的 VBA 代碼插入到您的電子表格 VBA 項目中（直接插入到工作表或 VBA 模塊中）
根據需要修改腳本。
運行（按 F5）並測試結果。

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

享受🙂