Classe Slide (PowerPoint VBA)

La classe Slide représente une diapositive. La collection Slides contient tous les objets Slide d’une présentation.

Les procédures principales de la classe Slide sont Copy, Delete, Select, SlideRange.Copy, SlideRange.Delete et SlideRange.Select

Set

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

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Slide : SlideRange.Item, Slides.Item, Slides.AddSlide, Slides.FindBySlideID, SlideShowView.LastSlideViewed, SlideShowView.Slide, View.Slide, Selection.SlideRange, Duplicate, NotesPage, SlideRange.Duplicate, SlideRange.NotesPage, Slides.Range, Slides.Paste et Presentation.Slides

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Format with its procedures ApplyTheme, ApplyThemeColorScheme, BackgroundStyle, ColorScheme, CustomLayout, Layout, ThemeColorScheme, SlideRange.ApplyTheme, SlideRange.ApplyThemeColorScheme, SlideRange.BackgroundStyle, SlideRange.ColorScheme, SlideRange.CustomLayout, SlideRange.Layout et SlideRange.ThemeColorScheme
Copy with its procedures Copy et SlideRange.Copy
Data with its procedures CustomerData et SlideRange.CustomerData
Display/Show with its procedures DisplayMasterShapes, SlideShowTransition, SlideRange.DisplayMasterShapes et SlideRange.SlideShowTransition
Import/Export with its procedures Export et SlideRange.Export
Name with its procedures Name et SlideRange.Name
Print with its procedures PrintSteps et SlideRange.PrintSteps
Number with its procedures SlideNumber et SlideRange.SlideNumber

Méthodes

Les méthodes principales de la classe Slide sont

Delete - Supprime l’objet Slide spécifié.

ActivePresentation.Slides.Range(1).Delete

Select - Sélectionne l'objet spécifié.

ActivePresentation.Slides.Range(1).Select

SlideRange.Delete - Supprime l’objet SlideRange spécifié.

ActivePresentation.Slides.Range.Delete

SlideRange.Select - Sélectionne l'objet spécifié.

ActivePresentation.Slides.Range.Select

Autre Méthodes

ApplyTemplate2 - Applique un modèle de conception et une variante de thème à la diapositive.

Dim strFileName As String: strFileName = 
Dim strVariantGUID As String: strVariantGUID = 
ActivePresentation.Slides.Range(1).ApplyTemplate2 FileName:=strFileName, VariantGUID:=strVariantGUID

PublishSlides - Publie la diapositive spécifiée à l’emplacement spécifié.

Dim strSlideLibraryUrl As String: strSlideLibraryUrl = "https://myURL " 
ActivePresentation.Slides.Range(1).PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

SlideRange.ApplyTemplate2 - Applique un modèle de conception et une variante de thème à la plage de diapositives.

Dim strFileName As String: strFileName = 
Dim strVariantGUID As String: strVariantGUID = 
ActivePresentation.Slides.Range.ApplyTemplate2 FileName:=strFileName, VariantGUID:=strVariantGUID

SlideRange.PublishSlides - Crée une présentation Web (au format HTML) à partir de la présentation active. Vous pouvez afficher la présentation publiée dans un navigateur Web.

Dim strSlideLibraryUrl As String: strSlideLibraryUrl = 
ActivePresentation.Slides.Range.PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

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

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

Slides.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.

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)

Propriétés

Background Renvoie un objet ShapeRange qui représente l’arrière-plan de la diapositive.

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.Slides.Range(1).Background

Comments Renvoie un objet Comments qui représente une collection de commentaires. En lecture seule.

Dim cmmsComments As Comments
Set cmmsComments = ActivePresentation.Slides.Range(1).Comments

Design Renvoie un objet Design qui représente un motif.

Set ActivePresentation.Slides.Range(1).Design =

FollowMasterBackground Détermine si la diapositive suit l’arrière-plan du masque des diapositives. Lecture-écriture.

ActivePresentation.Slides.Range(1).FollowMasterBackground = msoTrue

HasNotesPage Indique si la diapositive sélectionnée contient un média qui se trouve sur une page de notes. En lecture seule.

Dim mtsHasNotesPage As Office.MsoTriState
mtsHasNotesPage = ActivePresentation.Slides.Range(1).HasNotesPage

HeadersFooters Renvoie une collection HeadersFooters qui représente l’en-tête, le pied de page, la date et l’heure, ainsi que le numéro de diapositive associé à la diapositive, au masque de diapositives ou à la plage de diapositives. En lecture seule.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.Slides.Range(1).HeadersFooters

Hyperlinks Renvoie une collection Hyperlinks qui représente tous les liens hypertexte de la diapositive spécifiée. En lecture seule.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.Slides.Range(1).Hyperlinks

Master Renvoie un objet Master qui représente le masque des diapositives. En lecture seule.

Dim mstMaster As Master
Set mstMaster = ActivePresentation.Slides.Range(1).Master

NotesPage Renvoie un objet SlideRange qui représente les pages de commentaires de la diapositive ou plage de diapositives spécifiée. En lecture seule.

Dim sreNotesPage As SlideRange
Set sreNotesPage = ActivePresentation.Slides.Range(1).NotesPage

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

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Range(1).Parent

sectionIndex Renvoie l’index de la section sélectionnée dans la plage de diapositives. En lecture seule.

Dim lngsectionIndex As Long
lngsectionIndex = ActivePresentation.Slides.Range(1).sectionIndex

Shapes Renvoie une collection Shapes qui représente tous les éléments qui ont été placés ou insérés dans la diapositive, le masque des diapositives ou la plage de diapositives spécifiée. En lecture seule.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.Slides.Range(1).Shapes

SlideID Renvoie un numéro d’identification unique à la diapositive spécifiée. En lecture seule.

Dim lngSlideID As Long
lngSlideID = ActivePresentation.Slides.Range(1).SlideID

SlideIndex Renvoie le numéro d’index de la diapositive spécifiée au sein de la collection Slides. En lecture seule.

Dim lngSlideIndex As Long
lngSlideIndex = ActivePresentation.Slides.Range(1).SlideIndex

Tags Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides.Range(1).Tags

TimeLine Renvoie un objet Timeline qui représente la chronologie de l’animation de la diapositive. En lecture seule.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.Slides.Range(1).TimeLine

SlideRange.Background Renvoie un objet ShapeRange qui représente l’arrière-plan de la diapositive.

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.Slides.Range.Background

SlideRange.Comments Renvoie un objet Comments qui représente une collection de commentaires. En lecture seule.

Dim cmmsComments As Comments
Set cmmsComments = ActivePresentation.Slides.Range.Comments

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

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Range.Count

SlideRange.Design Renvoie un objet Design qui représente un motif.

Set ActivePresentation.Slides.Range.Design =

SlideRange.FollowMasterBackground Détermine si la plage de diapositives suit l’arrière-plan du masque des diapositives. Lecture-écriture.

ActivePresentation.Slides.Range.FollowMasterBackground = msoTrue

SlideRange.HasNotesPage Indique si le SlideRange sélectionné contient un média qui se trouve sur une page de notes. En lecture seule.

Dim mtsHasNotesPage As Office.MsoTriState
mtsHasNotesPage = ActivePresentation.Slides.Range.HasNotesPage

SlideRange.HeadersFooters Renvoie une collection HeadersFooters qui représente l’en-tête, le pied de page, la date et l’heure, ainsi que le numéro de diapositive associé à la diapositive, au masque de diapositives ou à la plage de diapositives. En lecture seule.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.Slides.Range.HeadersFooters

SlideRange.Hyperlinks Renvoie une collection Hyperlinks qui représente tous les liens hypertexte de la diapositive spécifiée. En lecture seule.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.Slides.Range.Hyperlinks

SlideRange.Master Renvoie un objet Master qui représente le masque des diapositives. En lecture seule.

Dim mstMaster As Master
Set mstMaster = ActivePresentation.Slides.Range.Master

SlideRange.NotesPage Renvoie un objet SlideRange qui représente les pages de commentaires de la diapositive ou plage de diapositives spécifiée. En lecture seule.

Dim sreNotesPage As SlideRange
Set sreNotesPage = ActivePresentation.Slides.Range.NotesPage

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

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Range.Parent

SlideRange.sectionIndex Renvoie l’index de la section sélectionnée dans SlideRange. En lecture seule.

Dim lngsectionIndex As Long
lngsectionIndex = ActivePresentation.Slides.Range.sectionIndex

SlideRange.Shapes Renvoie une collection Shapes qui représente tous les éléments qui ont été placés ou insérés dans la diapositive, le masque des diapositives ou la plage de diapositives spécifiée. En lecture seule.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.Slides.Range.Shapes

SlideRange.SlideID Renvoie un numéro d’identification unique à la diapositive spécifiée. En lecture seule.

Dim lngSlideID As Long
lngSlideID = ActivePresentation.Slides.Range.SlideID

SlideRange.SlideIndex Renvoie le numéro d’index de la diapositive spécifiée au sein de la collection Slides. En lecture seule.

Dim lngSlideIndex As Long
lngSlideIndex = ActivePresentation.Slides.Range.SlideIndex

SlideRange.Tags Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides.Range.Tags

SlideRange.TimeLine Renvoie un objet Timeline qui représente la chronologie de l’animation de la diapositive. En lecture seule.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.Slides.Range.TimeLine

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

Dim lngCount As Long
lngCount = ActivePresentation.Slides.Count

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

Dim objParent As Object
Set objParent = ActivePresentation.Slides.Parent