4.2插入幻灯片

12.4.1小节介绍了使用Slides集合对象的AddSlide方法可以在指定位置插入新幻灯片。这里要讲的插入幻灯片是将已有PPT文件中指定的幻灯片插入到当前演示文稿。使用Slides集合对象的InsertFromFile方法实现。该方法的语法格式为：

Set pr.Slides.InsertFromFile FileName, Index, SlideStart, SlideEnd

其中，FileName表示文件路径和名称，Index表示新幻灯片在当前幻灯片集合中的索引号，即插入位置，SlideStart表示文件中第1个要插入的幻灯片在文件集合中的索引号，SlideEnd表示文件中最后1个要插入的幻灯片在文件集合中的索引号。

下面的代码在当前演示文稿的第1张幻灯片后插入文件中的第2-4张幻灯片。

Sub Test()
  Dim pr As Presentation
  Set pr = Presentations(1)
  pr.Slides.InsertFromFile "D:\test.pptx", 1, 2, 4
End Sub