Classe CustomLayout (PowerPoint VBA)

La classe CustomLayout représente une disposition personnalisée associée à une conception de présentation. L’objet CustomLayout appartient à la collection CustomLayouts.

Les procédures principales de la classe CustomLayout sont Copy, Delete, Select et CustomLayouts.Add

Set

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

Dim clt as CustomLayout
Set clt = ActivePresentation.SlideMaster.CustomLayouts(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe CustomLayout : Duplicate, CustomLayouts.Item, CustomLayouts.Add, CustomLayouts.Paste, Slide.CustomLayout, SlideRange.CustomLayout et Master.CustomLayouts

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

Display/Show with its procedures DisplayMasterShapes et SlideShowTransition
Format with its procedures Height, ThemeColorScheme et Width
Name with its procedures MatchingName et Name

Méthodes

Les méthodes principales de la classe CustomLayout sont

Copy - Copie l’objet spécifié dans le Presse-papiers.

ActivePresentation.SlideMaster.CustomLayouts(1).Copy

Delete - Supprime l'objet spécifié.

ActivePresentation.SlideMaster.CustomLayouts(1).Delete

Select - Sélectionne l’objet CustomLayout spécifié.

ActivePresentation.SlideMaster.CustomLayouts(1).Select

CustomLayouts.Add - Renvoie un objet CustomLayout qui représente une nouvelle disposition personnalisée.

Dim lngIndex As Long: lngIndex = 
Dim clt As CustomLayout
Set clt = ActivePresentation.SlideMaster.CustomLayouts.Add(Index:=lngIndex)

Propriétés

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

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.SlideMaster.CustomLayouts(1).Background

CustomerData Renvoie un objet CustomerData .

Dim cdaCustomerData As CustomerData
Set cdaCustomerData = ActivePresentation.SlideMaster.CustomLayouts(1).CustomerData

Design Renvoie un objet Design qui représente le modèle de conception associé à la disposition personnalisée spécifiée.

Dim dsgDesign As Design
Set dsgDesign = ActivePresentation.SlideMaster.CustomLayouts(1).Design

FollowMasterBackground Détermine si la disposition personnalisée spécifiée suit l’arrière-plan du masque des diapositives. Lecture-écriture.

ActivePresentation.SlideMaster.CustomLayouts(1).FollowMasterBackground = msoTrue

Guides Renvoie la collection repères associée à une mise en page personnalisée. En lecture seule.

Dim gdsGuides As Guides
Set gdsGuides = ActivePresentation.SlideMaster.CustomLayouts(1).Guides

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 disposition personnalisée spécifiée.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.SlideMaster.CustomLayouts(1).HeadersFooters

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

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.SlideMaster.CustomLayouts(1).Hyperlinks

Index Renvoie la position d’index de la disposition personnalisée spécifiée dans la collection CustomLayouts . En lecture seule.

Dim lngIndex As Long
lngIndex = ActivePresentation.SlideMaster.CustomLayouts(1).Index

Parent Renvoie une référence à l’objet masque de diapositive qui est le parent de l’objet CustomLayout spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActivePresentation.SlideMaster.CustomLayouts(1).Parent

Preserved Détermine si la disposition personnalisée spécifiée est protégée contre les modifications. Lecture-écriture.

ActivePresentation.SlideMaster.CustomLayouts(1).Preserved = msoTrue

Shapes Renvoie une collection Shapes qui représente tous les éléments inclus dans la disposition personnalisée spécifiée. En lecture seule.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.SlideMaster.CustomLayouts(1).Shapes

TimeLine Renvoie un objet Timeline qui représente la chronologie de l’animation de la diapositive associée à la disposition personnalisée spécifiée. En lecture seule.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.SlideMaster.CustomLayouts(1).TimeLine

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

Dim lngCount As Long
lngCount = ActivePresentation.SlideMaster.CustomLayouts.Count

CustomLayouts.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActivePresentation.SlideMaster.CustomLayouts.Parent