Classe NamedSlideShow (PowerPoint VBA)

La classe NamedSlideShow représente un diaporama personnalisé, formé d’un sous-ensemble des diapositives d’une présentation.

Set

Pour utiliser une variable de classe NamedSlideShow, elle doit d'abord être instanciée, par exemple

Dim nss as NamedSlideShow
Set nss = ActivePresentation.SlideShowSettings.NamedSlideShows(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe NamedSlideShow : NamedSlideShows.Item, NamedSlideShows.Add et SlideShowSettings.NamedSlideShows

Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.SlideShowSettings.NamedSlideShows(1).Count

Delete

Supprime l’objet NamedSlideShow spécifié.

ActivePresentation.SlideShowSettings.NamedSlideShows(1).Delete

Name

Vous ne pouvez pas utiliser cette propriété pour définir le nom d’un diaporama personnalisé. Utilisez la méthode Add pour redéfinir un diaporama personnalisé sous un nouveau nom. En lecture seule.

Vous pouvez utiliser le nom de l’objet avec la méthode Item pour renvoyer une référence à l’objet si la méthode Item de la collection contenant l’objet prend un argument de type Variant . Par exemple, si la valeur de la propriété Name d’une forme est Rectangle 2, .Shapes("Rectangle 2") renvoie une référence à cette forme.

Dim strName As String
strName = ActivePresentation.SlideShowSettings.NamedSlideShows(1).Name

Parent

Renvoie l’objet parent de l’objet spécifié.

SlideIDs

Renvoie une matrice d’identification de diapositive pour le diaporama nommé spécifié. En lecture seule.

Dim varSlideIDs As Variant
varSlideIDs = ActivePresentation.SlideShowSettings.NamedSlideShows(1).SlideIDs

NamedSlideShows.Add

Cette méthode crée un nouveau diaporama nommé, puis l’ajoute à la collection de diaporamas nommés de la présentation spécifiée. Renvoie un objet NamedSlideShow qui représente le nouveau diaporama nommé.

Le nom que vous spécifiez lors de l’ajout d’un diaporama nommé est le nom que vous utilisez comme argument de la méthode Run pour exécuter le diaporama nommé.

Syntaxe : expression.Add (Name, safeArrayOfSlideIDs)

Dim strName As String: strName = 
Dim lngsafeArrayOfSlideIDs() As Long: lngsafeArrayOfSlideIDs() = 
Dim nss As NamedSlideShow
Set nss = ActivePresentation.SlideShowSettings.NamedSlideShows.Add(Name:=strName, safeArrayOfSlideIDs:=lngsafeArrayOfSlideIDs())

Arguments

Les arguments nommés :

Name (String) - Nom du diaporama.

safeArrayOfSlideIDs (Long) - Contient les numéros d’identification uniques des diapositives à afficher dans le diaporama.

NamedSlideShows.Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.SlideShowSettings.NamedSlideShows.Count

NamedSlideShows.Item

Cette méthode renvoie un seul objet NamedSlideShow de la collection NamedSlideShows spécifiée.

Syntaxe : expression.Item (Index)

Index: Nom ou numéro d’index de l’objet NamedSlideShow unique à renvoyer dans la collection.

Dim nss As NamedSlideShow
Set nss = ActivePresentation.SlideShowSettings.NamedSlideShows(Index:=1)

NamedSlideShows.Parent

Renvoie l’objet parent de l’objet spécifié.