Classe Design (PowerPoint VBA)

La classe Design représente le modèle de conception d’une diapositive précise. L’objet Design est membre des collections designs et SlideRange , ainsi que des objets Master et Slide .

Les procédures principales de la classe Design sont Delete et Designs.Add

Set

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

Dim dsg as Design
Set dsg = ActivePresentation.Designs(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Design : CustomLayout.Design, Designs.Item, Designs.Add, Designs.Clone, Designs.Load, Master.Design, Slide.Design, SlideRange.Design et Presentation.Designs

Méthodes

Les méthodes principales de la classe Design sont

Delete - Supprime l’objet de conception spécifié.

ActivePresentation.Designs(1).Delete

Designs.Add - Renvoie un objet Design qui représente une nouvelle conception de diapositive.

Dim strdesignName As String: strdesignName = 
Dim dsg As Design
Set dsg = ActivePresentation.Designs.Add(designName:=strdesignName)

Autre Méthodes

Designs.Clone - Crée une copie d’un objet Design .

Dim dsgClone As Design
Set dsgClone = ActivePresentation.Designs.Clone(pOriginal:=)

Designs.Load - Renvoie un objet Design représentant une conception chargée dans la liste des masques de la présentation spécifiée.

Dim strTemplateName As String: strTemplateName = 
Dim dsgLoad As Design
Set dsgLoad = ActivePresentation.Designs.Load(TemplateName:=strTemplateName)

Propriétés

Index Renvoie un type de données Long qui représente le numéro d’index d’un effet d’animation ou d’un motif. En lecture seule.

Dim lngIndex As Long
lngIndex = ActivePresentation.Designs(1).Index

Name Renvoie ou définit le nom de l’objet spécifié. Lecture-écriture.

ActivePresentation.Designs(1).Name =

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

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

Preserved Indique si un réplica-maître est protégé contre les modifications. Lecture-écriture.

ActivePresentation.Designs(1).Preserved = msoTrue

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

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.Designs(1).SlideMaster

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

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

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

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