在VBA powerpoint中如何将新幻灯片添加到空的演示文稿中

Question

我想在空演示文稿中添加新幻灯片。我正在努力布局。 我正在使用以下内容：

TPopupMenu

当我的演示文稿中已有幻灯片时，此代码可以正常工作，但我没有！

所以，我的问题是：如果我没有预先存在的幻灯片来设置布局，我怎么能插入幻灯片？ 我的意思是在代码的第一行，我使用幻灯片1定义布局，以便在.AddSlide中使用它

Answer 1

你可以简单地使用这样的东西：

ActivePresentation.Slides.Add Index:=ActivePresentation.Slides.Count + 1, Layout:=ppLayoutCustom

使用您不必从其他地方获取布局，您可以更改它，查看截图中的其他一些可能性：

Answer 2

OP代码的变体适用于我

Dim appPPT As PowerPoint.Application
dim ppObj As PowerPoint.Presentation
dim slideObj As PowerPoint.Slide
dim pptLayout As CustomLayout

Set appPPT = New PowerPoint.Application
Set ppObj = appPPT.Presentations.Add
Set pptLayout = ppObj.Designs(1).SlideMaster.CustomLayouts(7)
Set slideObj = ppObj.Slides.AddSlide(1, pptLayout)