Slides.Range, méthode (PowerPoint)

Article
04/07/2023

Renvoie un objet SlideRange qui représente un sous-ensemble des diapositives d’une collection Slides .

Syntaxe

expression. Plage (index)

Expression Variable qui représente un objet Slides .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Facultatif	Variant	Les diapositives à inclure dans le groupe. Il peut s’agir d’une donnée de type Integer spécifiant le numéro d’index de la diapositive, d’une donnée de type String correspondant au nom de la diapositive ou encore d’une matrice contenant soit des nombres entiers, soit des chaînes. Si cet argument est omis, la méthode Range renvoie tous les objets de la collection spécifiée.

Valeur renvoyée

SlideRange

Remarques

Bien que vous puissiez utiliser la méthode Range pour renvoyer un nombre quelconque de formes ou de diapositives, il est plus simple d’utiliser la méthode Item si vous ne souhaitez renvoyer qu’un seul membre de la collection. Par exemple, Shapes(1) est plus simple que Shapes.Range(1)et Slides(2) est plus simple que Slides.Range(2).

Pour spécifier un tableau d’entiers ou de chaînes pour Index, vous pouvez utiliser la fonction Array. Par exemple, l’instruction suivante renvoie deux formes spécifiées par leur nom.

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

Exemple

Cet exemple montre comment définir la couleur du titre des diapositives 1 et 3.

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

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

Cet exemple montre comment définir la couleur du titre des diapositives intitulées Slide6 et Slide8.

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

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

Cet exemple montre comment définir la couleur du titre de toutes les diapositives dans la présentation active.

Set mySlides = ActivePresentation.Slides.Range

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

Cet exemple montre comment créer une matrice qui contient toutes les diapositives dotées d’un titre dans la présentation active, définir un groupe de diapositives à partir de cette matrice, puis définir la couleur du titre pour toutes les diapositives du groupe.

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)

Voir aussi

Slides, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.