Classe Slides (PowerPoint VBA)

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

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

Dim slds as Slides
Set slds = ActivePresentation.Slides

Les variables du type Slides peuvent être définies à l'aide de la procédure Presentation.Slides

AddSlide

Crée une nouvelle diapositive, l’ajoute à la collection Slides et renvoie la diapositive.

Si votre solution Visual Studio inclut la référence Microsoft. Office. Interop. PowerPoint , cette méthode est mappée aux types suivants :

AddSlide (Index, pCustomLayout)

Dim lngIndex As Long: lngIndex = 
Dim sldAddSlide As Slide
Set sldAddSlide = ActivePresentation.Slides.AddSlide(Index:=lngIndex, pCustomLayout:=)

Arguments

Les arguments nommés :

Index (Long) - Index de la diapositive à ajouter.

pCustomLayout (CustomLayout) - Mise en page de la diapositive.

Count

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

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Count

FindBySlideID

Renvoie un objet Slide qui représente la diapositive avec le numéro d’identification de diapositive spécifié. À chaque nouvelle diapositive est automatiquement affecté un numéro d’identification unique. Utilisez la propriété SlideID pour renvoyer le numéro d’identification d’une diapositive.

Contrairement à la propriété SlideIndex , la propriété SlideID d’un objet Slide ne change pas lorsque vous ajoutez des diapositives à la présentation ou que vous réorganisez les diapositives dans la présentation. Par conséquent, l’utilisation de la méthode FindBySlideID avec le numéro d’identification de diapositive peut être plus fiable pour renvoyer un objet Slide spécifique à partir d’une collection Slides que l’utilisation de la méthode Item avec le numéro d’index de la diapositive.

FindBySlideID (SlideID)

SlideID: Spécifie le numéro d’identification de la diapositive que vous souhaitez renvoyer. Microsoft PowerPoint affecte ce numéro lors de la création de la diapositive.

Dim lngSlideID As Long: lngSlideID = 
Dim sldFindBySlideID As Slide
Set sldFindBySlideID = ActivePresentation.Slides.FindBySlideID(SlideID:=lngSlideID)

InsertFromFile

Insère des diapositives à partir d’un fichier dans une présentation, à l’emplacement spécifié. Renvoie un entier qui représente le nombre de diapositives insérées.

InsertFromFile (FileName, Index, SlideStart, SlideEnd)

Dim strFileName As String: strFileName = "c:\ppt\sales.ppt" 
Dim lngIndex As Long: lngIndex = 2 
Dim lngInsertFromFile As Long
lngInsertFromFile = ActivePresentation.Slides.InsertFromFile(FileName:=strFileName, Index:=lngIndex)

Arguments

Les arguments nommés :

FileName (String) - Nom du fichier contenant les diapositives que vous voulez insérer.

Index (Long) - Numéro d’index de l’objet Slide de la collection Slides spécifiée après lequel vous souhaitez insérer les nouvelles diapositives.

Optional arguments

Les arguments suivants sont facultatifs

SlideStart (Long) - Numéro d’index du premier objet Slide de la collection Slides dans le fichier désigné par filename.

SlideEnd (Long) - Numéro d’index du dernier objet Slide de la collection Slides dans le fichier désigné par filename.

Item

Cette méthode renvoie un seul objet Slide de la collection Slides spécifiée.

Item (Index)

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

Dim sld As Slide
Set sld = ActivePresentation.Slides(Index:=1)

Paste

Colle les diapositives contenues dans le presse -papiers dans la collection Slides de la présentation. Indiquez l’endroit où vous souhaitez insérer les diapositives avec l’argument Index. Renvoie un objet SlideRange qui représente les objets collés. Chaque diapositive collée vient s’ajouter à la collection Slides.

Utilisez la propriété ViewType pour définir l’affichage d’une fenêtre avant de coller le contenu du presse-papiers dans celui-ci. Le tableau ci-après illustre ce que vous pouvez coller dans chaque vue.

Paste (Index)

Index: Numéro d’index de la diapositive avant laquelle doivent être collées les diapositives contenues dans le Presse-papiers. Si cet argument est omis, les diapositives contenues dans le Presse-papiers seront automatiquement collées après la dernière diapositive de la présentation.

Dim srePaste As SlideRange
Set srePaste = ActivePresentation.Slides.Paste()

Range

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

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)

Range (Index)

Index: 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.

Dim sreRange As SlideRange
Set sreRange = ActivePresentation.Slides.Range()