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

下一个

结束子