Question

SlideShowSettings NamedSlideShows (NamedSlideShow)

演示文稿中所有NamedSlideShow 对象的集合。每个NamedSlideShow 对象代表一个自定义幻灯片放映。

使用 NamedSlideShows 集合

使用NamedSlideShows 属性返回NamedSlideShows 集合。使用NamedSlideShows(index) 返回单个NamedSlideShow 对象，其中index 是自定义幻灯片放映名称或索引号。以下示例删除自定义幻灯片放映“Quick Show”。

ActivePresentation.SlideShowSettings _
 .NamedSlideShows("Quick Show").Delete

使用Add 方法创建一个新幻灯片放映并添加到NamedSlideShows 集合中。以下示例在当前演示文稿中添加命名幻灯片放映“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
 .NamedSlideShows.Add "Quick Show", qSlides
 .RangeType = ppShowNamedSlideShow
 .SlideShowName = "Quick Show"
 .Run
 End With
End With