创建和删除幻灯片

使用Slides集合对象的AddSlide方法创建Slide对象，即创建新的幻灯片。使用该方法时需要指定幻灯片的版式。下面语句创建1个空白版式的幻灯片。

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations(1)
  Dim lo As CustomLayout
  Dim sld As Slide
  Set lo = pr.SlideMaster.CustomLayouts(7)
  Set sld = pr.Slides.AddSlide(2, lo)
End Sub

使用AddSlide方法的第1个参数指定添加的幻灯片的索引号。

用Slide对象的Delete方法删除幻灯片。下面删除Slides集合中的第2个幻灯片。

code.vba 
pr.Slides(2).Delete