如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片,并且在

1.如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片,并且在

代码如下：

Sub Test()

Dim pptSlide As Slide

Dim pptLayout As CustomLayout

Set pptLayout = ActivePresentation.Slides(1).CustomLayout

Set pptSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, pptLayout)

ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.Paste

End Sub

2.100分求解

你提到的要求以前我也遇到过，研究过这样的VBA代码。

但最终没有完全实现，因为Excel的sheet页面区域很大，而ppt的单页很有限，即使按照sheet的打印页对应ppt的单页也难实现。excel的页面布局也很难复制到ppt中保证不变形。

但我找到了另外一个方法，可以每个sheet变成一张图片对应ppt中的每一个页。这样VBA可以实现，但是缺点是在PPT中的内容是图片，文字等内容不可编辑，并且sheet页面很大时ppt的图片显示相当内容很小。

不知道导出图片放到PPT中这样的实现方案能否满足你的要求，如果可以的话，我可以提供VBA代码帮助。