Excel VBA在PowerPoint中复制幻灯片

我正在从Excel导出内容到PowerPoint。 我在PowerPoint演示文稿中有一个空白的格式化幻灯片，我需要每次复制并在其上写入。 问题是我的代码在当前幻灯片之前添加了一个新的幻灯片，这个幻灯片会将内容写入到确切的幻灯片编号中。 我希望在当前幻灯片之后添加新的幻灯片。

Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate.Item(1) oPPTFile.Slides(SlideNum).Select Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 1") 

有什么build议么 ？

Answer 1

自动化PPT几乎没有什么好的select。 假设幻灯片1中名为表1的形状，这应该做你想要的：

 Dim oSl As Slide Dim oSh As Shape Set oSl = ActivePresentation.Slides(1).Duplicate()(1) Set oSh = oSl.Shapes("Table 1")