Objet NamedSlideShows (PowerPoint)

Collection de tous les objets NamedSlideShow de la présentation. Chaque objet NamedSlideShow représente un diaporama personnalisé.

Exemple

Utilisez la propriété NamedSlideShowspour renvoyer la collection NamedSlideShows . Utilisez NamedSlideShows (index), où index est le nom ou le numéro d’index personnalisé du diaporama, pour renvoyer un seul objet NamedSlideShow . L’exemple suivant montre comment supprimer le diaporama personnalisé nommé « Quick Show ».

ActivePresentation.SlideShowSettings _
    .NamedSlideShows("Quick Show").Delete

Utilisez la méthode Addpour créer un diaporama et l’ajouter à la collection NamedSlideShows . L’exemple suivant ajoute à la présentation active le diaporama nommé « Quick Show » qui contient les diapositives 2, 7 et 9. L’exemple exécute ensuite ce diaporama personnalisé.

Dim qSlides(1 To 3) As Long

With ActivePresentation

    With .Slides

        qSlides(1) = .Item(2).SlideID

        qSlides(2) = .Item(7).SlideID

        qSlides(3) = .Item(9).SlideID

    End With

    With .SlideShowSettings

        .NamedSlideShows.Add "Quick Show", qSlides

        .RangeType = ppShowNamedSlideShow

        .SlideShowName = "Quick Show"

        .Run

    End With

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.