PowerPoint) (Slides.Range 方法

會傳回 SlideRange 物件，表示 Slides 集合中投影片的子集合。

語法

運算式。範圍 (索引)

表達 代表 Slides 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Index	選用	Variant	是要包含在範圍中個別的投影片。 可以是指定投影片的索引編號的 整數 、 指定的投影片，名稱的 字串 或包含整數或字串陣列。 如果省略此引數，則 Range 方法會傳回指定集合中的所有物件。

傳回值

SlideRange

註解

雖然您可以使用 Range 方法傳回圖案或投影片的任何數字，它會更容易使用 Item 方法，如果您只想要傳回之集合中的單一成員。 例如， Shapes(1) 比 Shapes.Range(1) 簡單，而且 Slides(2) 比 Slides.Range(2) 簡單。

若要指定 索引 的整數或字串陣列，您可以使用 Array 函數。 例如，下列指令會傳回 name 所指定的兩個圖形。

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)

另請參閱

Slides 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。