Clase Design (PowerPoint VBA)

La clase Design representa una plantilla de diseño de diapositiva individual. El objeto Design es un miembro de las colecciones Designs y SlideRange y los objetos Master y Slide.

Los principales procedimientos de la clase Design son Delete y Designs.Add

Set

Para usar una variable de clase Design, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Design : CustomLayout.Design, Designs.Item, Designs.Add, Designs.Clone, Designs.Load, Master.Design, Slide.Design, SlideRange.Design y Presentation.Designs

Métodos

Los principales métodos de la clase Design son

Delete - Elimina el objeto de diseño especificado.

ActivePresentation.Designs(1).Delete

Designs.Add - Devuelve un objeto Design que representa un nuevo diseño de diapositiva.

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

Otros Métodos

Designs.Clone - Crea una copia del objeto Design.

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

Designs.Load - Devuelve un objeto Design que representa un diseño cargado en la lista del patrón de la presentación especificada.

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

Propiedades

Index Devuelve un Long que representa el número de índice de un efecto de animación o diseño. Solo lectura.

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

Name Devuelve o establece el nombre del objeto especificado. Lectura y escritura.

ActivePresentation.Designs(1).Name =

Parent Devuelve el objeto primario del objeto especificado.

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

Preserved Representa si el patrón de diseño está protegido frente a posibles cambios. Lectura y escritura.

ActivePresentation.Designs(1).Preserved = msoTrue

SlideMaster Devuelve un objeto Master que representa al patrón de diapositivas. Solo lectura.

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

Designs.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

Designs.Parent Devuelve el objeto primario del objeto especificado.

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