Objet Slides (PowerPoint)

Collection de tous les objets Slide dans la présentation spécifiée.

Remarques

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.PowerPoint , cette collection correspond aux types suivants :

• Microsoft.Office.Interop.PowerPoint.Slides.GetEnumerator (pour énumérer les objets Slide.)

Les exemples suivants montrent comment effectuer les tâches suivantes :

• créer une diapositive et l’ajouter à la collection ;

• renvoyer une seule diapositive dont vous indiquez le nom, le numéro d’index ou le numéro d’identification de diapositive ;

• renvoyer un sous-ensemble des diapositives de la présentation ;

• appliquer simultanément une propriété ou une méthode à toutes les diapositives de la présentation.

Exemple

Utilisez la propriété Slides pour renvoyer une collection Slides. Utilisez la méthode Add pour créer une diapositive et l’ajouter à la collection. L’exemple suivant montre comment ajouter une nouvelle diapositive à la présentation active.

ActivePresentation.Slides.Add 2, ppLayoutBlank

Utilisez Slides (index), où index est le nom ou le numéro d’index de la diapositive, ou utilisez Slides.FindBySlideID (index), où index est le numéro d’ID de diapositive, pour renvoyer un seul objet Slide . L’exemple suivant définit la disposition de la première diapositive de la présentation active.

ActivePresentation.Slides(1).Layout = ppLayoutTitle

L’exemple suivant définit la disposition de la diapositive intitulée « Big Chart » dans la présentation active. Notez qu’un nom généré automatiquement est attribué aux diapositives sous la forme type Diapositiven (où n est un nombre entier), lorsqu’elles sont créées. Pour attribuer un nom personnalisé à une diapositive, utilisez la propriété Name.

ActivePresentation.Slides("Big Chart").Layout = ppLayoutTitle

Utilisez Slides.Range (index), où index est le numéro ou le nom d’index des diapositives, ou un tableau de numéros d’index de diapositives ou un tableau de noms de diapositives, pour renvoyer un objet SlideRange qui représente un sous-ensemble de la collection Slides. L’exemple suivant montre comment définir l’arrière-plan des diapositives 1 et 3 de la présentation active.

With ActivePresentation.Slides.Range(Array(1, 3)) 
    .FollowMasterBackground = False 
    .Background.Fill.PresetGradient msoGradientHorizontal, _ 
        1, msoGradientLateSunset 
End With

Si vous souhaitez effectuer une opération pour toutes les diapositives de votre présentation en même temps (par exemple, les supprimer toutes ou définir une propriété pour toutes les diapositives), utilisez Slides.Range sans argument pour construire une collection SlideRange qui contient toutes les diapositives de la collection Slides, puis appliquez la propriété ou la méthode correspondant à la collection SlideRange. L’exemple suivant montre comment définir l’arrière-plan de toutes les diapositives de la présentation active

With ActivePresentation.Slides.Range 
    .FollowMasterBackground = False 
    .Background.Fill.PresetGradient msoGradientHorizontal, _ 
        1, msoGradientLateSunset 
End With

Voir aussi

Référence du modèle objet PowerPoint

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.