如何使用 VBA 宏將添加幻燈片複製到 PowerPoint 演示文稿中？

最後更新時間：2020 年 6 月

適用於：Office 2019 及更早版本。僅限窗戶。

這裡有一個讀者的問題：

作為我向管理層提交季度報告的一部分，我經常需要從其他報告中復制幾張一般信息幻燈片。沒什麼大不了的，但能夠自動執行此練習將是一個重要的節省。任何 VBA 宏幫助實現這一點表示讚賞！

正如您剛才提到的，您可以使用 Visual Basic for Applications 在 PowerPoint 中自動複製和粘貼幻燈片。如果您需要每月創建多個演示文稿，此幻燈片複製/導入自動化可以節省大量時間！

用於添加幻燈片的 PowerPoint VBA

讓我們開始這個簡單的練習。

首先，確保您的開發選項卡已啟用且可見。以下是如何做到這一點。

我假設您已經創建了一個啟用宏的演示文稿（文件類型為 .pptm），您將其放置在與源演示文稿（我將其稱為 source.pptm）相同的目錄中。以下是使用 VBA 創建 PowerPoint 演示文稿的方法。

首先，讓我們備份那個演示文稿（簡單的複制和保存）。

然後讓我們繼續將以下宏插入到目標演示文稿中的新 VBA 模塊中。可以在我們的PowerPoint VBA 教程中找到有關如何執行此操作的所有詳細信息。

這是自動複製和粘貼幻燈片所需的 VBA 代碼。

我做了幾個假設：

• 您的源演示文稿名為 source.pptm
•  您將從源演示文稿中粘貼幻燈片 2-4
• 您將從幻燈片 5 開始放置複製的幻燈片。

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

顯然，您可以隨意更改代碼中的幻燈片編號索引，以便它們符合您的要求。

您可以循環播放多個演示文稿，並將每個演示文稿中的特定幻燈片插入到您的管理報告中。

用於復制幻燈片的 PowerPoint VBA

您可能希望在演示文稿中克隆一張或多張幻燈片，而不是將幻燈片複製到另一個演示文稿：

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

這些只是 PowerPoint 自動化的幾個簡單示例。尋找具體問題的讀者，請隨時通過聯繫頁面發送查詢。

希望它有幫助🙂