Slides.Range-Methode (PowerPoint)

Artikel
04/07/2023

Gibt ein SlideRange-Objekt zurück, das eine Teilmenge der Folien in einer Slides-Auflistung darstellt.

Syntax

Ausdruck. Bereich (Index)

Ausdruck Eine Variable, die ein Slides-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Optional	Variante	Identifiziert die einzelnen Folien, die der Bereich einschließen soll. Für das Argument kann eine Ganzzahl (Integer-Objekt), die die Indexnummer der Folie angibt, oder eine Zeichenfolge (String-Objekt), die den Namen der Folie angibt, oder ein Array übergeben werden, das entweder Ganzzahlen oder Zeichenfolgen enthält. Wenn das Argument weggelassen wird, gibt die Range-Methode alle Objekte der angegebenen Auflistung zurück.

Rückgabewert

SlideRange

HinwBemerkungeneise

Obwohl Sie eine beliebige Anzahl von Formen oder Folien zurückgeben die Range -Methode verwenden können, ist es einfacher, die Item -Methode verwenden, wenn Sie nur ein einzelnes Element der Auflistung zurückgeben möchten. ist beispielsweise Shapes(1) einfacher als Shapes.Range(1), und Slides(2) ist einfacher als Slides.Range(2).

Um für Index ein Array aus Ganzzahlen und Zeichenfolgen festzulegen, können Sie die Funktion Array verwenden. Die folgende Anweisung gibt z. B. zwei Formen zurück, deren Namen angegeben werden.

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

Beispiel

In dem folgenden Beispiel wird die Titelfarbe für die Folien 1 und 3 festgelegt.

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

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

In dem folgenden Beispiel wird die Titelfarbe für die Foliennamen "Slide6" und "Slide8" festgelegt.

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

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

In dem folgenden Beispiel wird die Titelfarbe für alle Folien der aktiven Präsentation festgelegt.

Set mySlides = ActivePresentation.Slides.Range

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

In dem folgenden Beispiel wird ein Array erstellt, das alle Titelfolien der aktiven Präsentation enthält. Das Array wird zur Festlegung des Folienbereichs verwendet. Anschließend wird die Titelfarbe für alle Folien des Bereichs festgelegt.

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)

Siehe auch

Slides-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via