如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？

Question

如何在PowerPoint中用VBA实现总是在最后面新建一张幻灯片，并且在新建的幻灯片中粘贴剪切板中的内容？求大神给出代码！
难道就没有人知道怎么做吗？

Answer 1

代码如下：

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