WPS 基础接口 > 演示 API 参考 > SlideRange > SlideRange 对象
代表备注页或幻灯片范围的集合,该范围是一组幻灯片,少则仅包含一个,多则包含演示文稿中的所有幻灯片。

说明

您可以使用任何所需的幻灯片(从演示文稿的所有幻灯片中进行选择,或从选定内容的所有幻灯片中进行选择)构造幻灯片范围。例如,可以构造一个 SlideRange 集合,其中包含演示文稿中的前三张幻灯片、演示文稿中所有选定的幻灯片,或演示文稿中所有的标题幻灯片。

如同在用户界面中选中多个幻灯片并通过命令同时操作它们一样,通过建立一个 SlideRange 集合并对其使用属性和方法,可以在编程中同时操作多个幻灯片。如同用户界面中用于单张幻灯片的命令不能用于多张幻灯片一样,某些应用于单独 SlideRange 对象或只包含一张幻灯片的 SlideRange 集合的属性和方法不能用于包含多张幻灯片的 SlideRange 集合。一般情况下,如果选中多张幻灯片时,某些操作无法手动完成(例如返回某一幻灯片中的单个形状),则编程时也不能对包含多张幻灯片的 SlideRange 集合进行该操作。

对于用户界面中可用于一张或多张选中幻灯片的操作(例如复制幻灯片到剪贴板或设置幻灯片背景填充),相应的属性和方法也可用于包含多张幻灯片的 SlideRange 集合。下面是如何对多张幻灯片使用这些属性和方法的一些指导。

以下示例说明如何执行下列操作:

示例

使用 Slides.Range(index) 返回代表演示文稿中一组幻灯片的 SlideRange 集合,其中 index 是幻灯片的名称或索引号或是由幻灯片的名称或索引号构成的数组。可以使用 Array 函数构造名称或索引号的数组。以下示例设置当前演示文稿中第一张和第三张幻灯片的背景填充。

示例代码
let slides2 = ActivePresentation.Slides.Range([1, 3])
slides2.FollowMasterBackground = false
slides2.Background.Fill.PresetGradient(msoGradientHorizontal, 1, msoGradientLateSunset)

以下示例为当前演示文稿中的“Intro”和“Big Chart”幻灯片设置背景填充。请注意,在创建幻灯片时为其指定自动生成的名称,其形式为 Sliden(其中 n 为整数)。要为幻灯片指定更有意义的名称,请使用 Name 属性。

示例代码
let slides2 = ActivePresentation.Slides.Range(["Intro", "Big Chart"])
slides2.FollowMasterBackground = false
slides2.Background.Fill.PresetGradient(msoGradientHorizontal, 1, msoGradientLateSunset)

虽然可以使用 Range 方法返回任意数目的幻灯片,但如果只需要返回 SlideRange 集合的一个成员,则使用 Item 方法会更为简单。例如,Slides(1)Slides.Range(1) 简单。

使用 Selection 对象的 SlideRange 属性可以返回选定范围中的所有幻灯片。以下示例设置第一个窗口中所有选定幻灯片的背景填充(假定至少选定了一张幻灯片)。

示例代码
let slides2 = Windows.Item(1).Selection.SlideRange
slides2.FollowMasterBackground = false
slides2.Background.Fill.PresetGradient(msoGradientHorizontal, 1, msoGradientLateSunset)

使用 Selection.SlideRange(index) 从选定范围中返回一张幻灯片,其中 index 是幻灯片名称或索引号。以下示例为第一个窗口内选定幻灯片的集合中第二张幻灯片设置背景填充(假定至少选定了两张幻灯片)。

示例代码
let slides2 = Windows.Item(1).Selection.SlideRange.Item(2)
slides2.FollowMasterBackground = false
slides2.Background.Fill.PresetGradient(msoGradientHorizontal, 1, msoGradientLateSunset)

使用 NotesPage 属性返回代表指定备注页的 SlideRange 集合。以下示例将文本插入当前演示文稿第一张幻灯片备注页的第二个占位符(备注区)。

示例代码
ActivePresentation.Slides.Item(1).NotesPage.Shapes.Placeholders.Item(2).TextFrame.TextRange.InsertAfter("Added Text")

Slide Range 集合对象


请参阅