Clase Designs (PowerPoint VBA)

La clase Designs representa una colección de plantillas de diseño de diapositiva.

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

Dim dsgs as Designs
Set dsgs = ActivePresentation.Designs

Las variables de tipo Designs se pueden establecer utilizando el procedimiento Presentation.Designs

Add

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

Add (designName, Index)

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

Arguments

Un argumento con nombre

designName (String) - Nombre del diseño.

Optional arguments

Los siguientes argumentos son opcionales

Index (Long) - Número de índice del diseño de la colección Designs . El valor predeterminado es -1, lo que significa que, si se omite el parámetro Index, se agrega el nuevo diseño de diapositiva al final de los diseños de diapositiva ya existentes.

Clone

Crea una copia del objeto Design.

Clone (pOriginal, Index)

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

Arguments

Un argumento con nombre

pOriginal (Design) - Objeto Design. El diseño original.

Optional arguments

Los siguientes argumentos son opcionales

Index (Long) - La ubicación del índice en la colección Designs en la que se copiará el diseño. Si se omite Index, el diseño copiado se agrega al final de la colección Designs.

Count

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

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

Item

Devuelve un único objeto de diseño de la colección Designs especificada.

Item (Index)

Index: Nombre o número de índice del objeto de diseño único de la colección que se va a devolver.

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

Load

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

Load (TemplateName, Index)

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

Arguments

Un argumento con nombre

TemplateName (String) - Ruta de acceso a la plantilla de diseño.

Optional arguments

Los siguientes argumentos son opcionales

Index (Long) - Número de índice de la plantilla de diseño de la colección de plantillas de diseño. El valor predeterminado es -1; es decir, la plantilla de diseño se agrega al final de la lista de diseños de la presentación.