NamedSlideShows 集合对象

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