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

2023年6月28日 387次阅读

我想在一个空的演示文稿中添加一张新幻灯片.我正在努力布局.

我使用以下内容：

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

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

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

最佳答案 你可以简单地使用这样的东西：

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

有了这个,你不必从其他地方获得布局,你可以改变它,看看你在屏幕截图上的其他一些可能性：

点赞