返回一个 NamedSlideShows 集合,该集合代表指定演示文稿中所有命名的幻灯片放映(即自定义幻灯片放映)。每个命名的幻灯片放映或自定义放映,都是指定演示文稿的一个用户定义的子集。只读。
使用 NamedSlideShows 对象的 Add 方法创建命名幻灯片放映。
本示例为当前演示文稿添加一个命名幻灯片放映“Quick Show”(该放映包含第二、第七和第九张幻灯片),然后运行该放映。
Dim qSlides(1 To 3) As Long
With ActivePresentation
With .Slides
qSlides(1) = .Item(2).SlideID
qSlides(2) = .Item(7).SlideID
qSlides(3) = .Item(9).SlideID
End With
With .SlideShowSettings
.RangeType = ppShowNamedSlideShow
.NamedSlideShows.Add "Quick Show", qSlides
.SlideShowName = "Quick Show"
.Run
End With
End With