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
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.
Dim dsgClone As Design
Set dsgClone = ActivePresentation.Designs.Clone(pOriginal:=)
Arguments
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)