本示例为复制当前演示文稿中的第一张幻灯片,并将其粘贴到当前演示文稿第二张幻灯片之前。

ActivePresentation.Slides.Range(1).Copy
ActivePresentation.Slides.Paste 2