Clase CustomLayout (PowerPoint VBA)

La clase CustomLayout representa un diseño personalizado asociado a un diseño de presentación. El objeto CustomLayout es un miembro de la colección CustomLayouts.

Los principales procedimientos de la clase CustomLayout son Copy, Delete, Select y CustomLayouts.Add

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase CustomLayout : Duplicate, CustomLayouts.Item, CustomLayouts.Add, CustomLayouts.Paste, Slide.CustomLayout, SlideRange.CustomLayout y Master.CustomLayouts

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

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

Métodos

Los principales métodos de la clase CustomLayout son

Copy - Copia el objeto especificado en el Portapapeles.

ActivePresentation.SlideMaster.CustomLayouts(1).Copy

Delete - Elimina el objeto especificado.

ActivePresentation.SlideMaster.CustomLayouts(1).Delete

Select - Selecciona el objeto CustomLayout especificado.

ActivePresentation.SlideMaster.CustomLayouts(1).Select

CustomLayouts.Add - Devuelve un objeto CustomLayout que representa un nuevo diseño personalizado.

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

Propiedades

Background Devuelve un objeto ShapeRange que representa el fondo de diapositiva. Solo lectura.

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

CustomerData Devuelve un objeto CustomerData.

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

Design Devuelve un objeto Design que representa la plantilla de diseño asociada al diseño personalizado especificado.

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

FollowMasterBackground Determina si el diseño personalizado especificado sigue o no el fondo del patrón de diapositivas. Lectura y escritura.

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

Guides Devuelve la colección de guías asociada a un diseño personalizado. Solo lectura.

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

HeadersFooters Devuelve una colección HeadersFooters que representa el encabezado, el pie de página, la fecha y la hora, y el número de diapositiva asociados al diseño personalizado especificado.

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

Hyperlinks Devuelve una colección Hyperlinks que representa todos los hipervínculos de la diapositiva asociada al diseño personalizado especificado. Solo lectura.

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

Index Devuelve la posición de índice del diseño personalizado especificado en la colección CustomLayouts . Solo lectura.

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

Parent Devuelve una referencia al objeto de patrón de diapositivas primario del objeto CustomLayout especificado. Solo lectura.

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

Preserved Determina si el diseño personalizado especificado se va a proteger de los cambios. Lectura y escritura.

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

Shapes Devuelve una colección Shapes que representa todos los elementos de diseño incluidos en el diseño personalizado especificado. Solo lectura.

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

TimeLine Devuelve un objeto TimeLine que representa la escala de tiempo de animación de la diapositiva asociada al diseño personalizado especificado. Solo lectura.

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

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

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

CustomLayouts.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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