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

您可以为目标使用循环。

公共Sub Add_Example（）

将pptSlide转换为幻灯片 pptLayout昏暗为CustomLayout 将Dim SlideCount设置为整数将FilePath变暗为字符串

SlideCount = 40 '添加您的文件路径 FilePath =“您的文件路径”

设置pptLayout = ActivePresentation.Slides（1）.CustomLayout

对于i = 1到SlideCount

设置pptSlide = ActivePresentation.Slides.AddSlide（i + 1，pptLayout）

pptSlide.Shapes.AddPicture文件名：= FilePath，LinkToFile：= msoFalse，SaveWithDocument：= msoTrue，左侧：= 100，顶部：= 100

下一步

结束子

VBA宏可在每张幻灯片中添加任意数量的带有图片的幻灯片

1 个答案: