VBA 宏可在每張幻燈片中添加任意數量的帶有圖片的幻燈片

Question

我是 VBA 的新手。 我正在使用 powerpoint 編寫 VBA 代碼來添加 n 張幻燈片，並且每張幻燈片都應包含從所選路徑中選擇的圖片。 我試過下面的代碼，它只添加一張幻燈片，還有一個不同的宏，用於向每張幻燈片添加圖片。 所以我的問題是例如我想有 40 張帶有選定圖片的幻燈片到所有幻燈片。 任何類型的提示將不勝感激。

添加幻燈片的代碼：

Public Sub Add_Example() 

Dim pptSlide As Slide 
Dim pptLayout As CustomLayout 

Set pptLayout = ActivePresentation.Slides(1).CustomLayout 
Set pptSlide = ActivePresentation.Slides.AddSlide(2, pptLayout)

End Sub 

Answer 1

您可以使用循環來實現您的目標。

公共子 Add_Example()

Dim pptSlide 作為 Slide Dim pptLayout 作為 CustomLayout Dim SlideCount 作為 Integer Dim FilePath 作為 String

SlideCount = 40 ' 添加你的文件路徑 FilePath = " 你的文件路徑 "

設置 pptLayout = ActivePresentation.Slides(1).CustomLayout

對於 i=1 到 SlideCount

設置 pptSlide = ActivePresentation.Slides.AddSlide(i+1, pptLayout)

pptSlide.Shapes.AddPicture FileName:=FilePath, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100

下一個

結束子