|
|
一、NamedSlideShow 对象
代表自定义幻灯片放映，该幻灯片放映是演示文稿中幻灯片的一个命名子集。NamedSlideShow 对象是 NamedSlideShows 集合的成员。NamedSlideShows 集合包含演示文稿中的所有命名幻灯片放映。
使用 NamedSlideShow 对象
使用 NamedSlideShows(index) 返回单个 NamedSlideShow 对象，其中 index 是自定义幻灯片放映的名称或索引号。以下示例删除自定义幻灯片放映“Quick Show”。
ActivePresentation.SlideShowSettings.NamedSlideShows("Quick Show").Delete
使用 SlideIDs 属性返回一个数组，该数组包含指定自定义放映中所有幻灯片的唯一幻灯片标识符。以下示例显示自定义放映“Quick Show”中幻灯片的幻灯片标识符。
idArray = ActivePresentation.SlideShowSettings _
.NamedSlideShows("Quick Show").SlideIDs
For i = 1 To UBound(idArray)
MsgBox idArray(i)
Next
二、NamedSlideShows 集合对象
演示文稿中所有 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
|
|
