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

Question

我想在空的演示文稿中添加一张新幻灯片。我正在为布局而苦苦挣扎。我正在使用以下内容：

Set pptLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1)
Set sld = ActivePresentation.Slides.AddSlide(1, pptLayout)
sld.Design = ActivePresentation.Designs(1)

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

所以，我的问题是：如果我没有预先存在的幻灯片来设置布局，我该如何插入幻灯片？我的意思是在代码的第一行中，我使用幻灯片 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)

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

in VBA powerpoint How to add a new slide to an empty presentation

powerpoint

vba