通过

幻灯片.Range 方法 (PowerPoint)

  • 项目

返回一个代表 Slides 集合中的幻灯片子集的 SlideRange 对象。

语法

表达式。范围 (索引)

表达 一个代表 幻灯片 对象的变量。

参数

名称 必需/可选 数据类型 说明
Index 可选 Variant 要包含在范围中单个幻灯片。 可以是指定的幻灯片的索引号的 整数 、 一个指定幻灯片的名称的 字符串 或一个包含整数或字符串的数组。 如果省略此参数，则 Range 方法将返回指定集合中的所有对象。

返回值

SlideRange

备注

虽然可以使用 Range 方法返回任意数目的形状或幻灯片，但它是易于使用 Item 方法，如果您只想返回集合的单个成员。 例如， Shapes(1) 比 Shapes.Range(1)简单，并且 Slides(2) 比 Slides.Range(2)简单。

若要指定 索引 的整数或字符串的数组，可以使用 Array 函数。 例如，下列指令返回由名称指定的两个形状。

Dim myArray() As Variant, myRange As Object myArray = Array("Oval 4", "Rectangle 5") Set myRange = ActivePresentation.Slides(1).Shapes.Range(myArray)

示例

本示例设置第一张幻灯片和第三张幻灯片的标题颜色。

Set mySlides = ActivePresentation.Slides.Range(Array(1, 3))

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

本示例设置名为"Slide6"和"Slide8"的幻灯片的标题颜色。

Set mySlides = ActivePresentation.Slides _
    .Range(Array("Slide6", "Slide8"))

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

本示例设置活动演示文稿中所有幻灯片的标题颜色。

Set mySlides = ActivePresentation.Slides.Range

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 0, 0)

本示例创建一个包含活动演示文稿中所有标题幻灯片的数组，并用它定义一个幻灯片范围，然后设置该范围内所有幻灯片的标题颜色。

Dim MyTitleArray() As Long

Set pSlides = ActivePresentation.Slides

ReDim MyTitleArray(1 To pSlides.Count)

For Each pSlide In pSlides

    If pSlide.Layout = ppLayoutTitle Then

        nCounter = nCounter + 1

        MyTitleArray(nCounter) = pSlide.SlideIndex

    End If

Next pSlide

ReDim Preserve MyTitleArray(1 To nCounter)



Set rngTitleSlides = ActivePresentation.Slides.Range(MyTitleArray)

rngTitleSlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 123, 99)

另请参阅

幻灯片对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。