Clase CustomLayouts (PowerPoint VBA)

La clase CustomLayouts representa un conjunto de diseños personalizados asociados a un diseño de presentación.

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

Dim cls as CustomLayouts
Set cls = ActivePresentation.SlideMaster.CustomLayouts

Las variables de tipo CustomLayouts se pueden establecer utilizando el procedimiento Master.CustomLayouts

Add

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

Add (Index)

Index: Número de índice del diseño personalizado. El valor predeterminado es -1, lo que significa que, si se omite el argumento Index, se agrega el nuevo diseño al final de los diseños personalizados existentes.

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

Count

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

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

Item

Devuelve un solo objeto de la colección especificada.

Item (Index)

Index: Nombre o número de índice del objeto de la colección que se devuelve.

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

Paste

Pega las diapositivas del portapapeles en un diseño personalizado y agrega el diseño personalizado a la colección CustomLayouts .

Paste (Index)

Index: El número de índice del diseño personalizado antes de la cual se pega el nuevo diseño personalizado. Si se omite este argumento, el nuevo diseño personalizado se pega al final de la colección CustomLayouts .

Dim cltPaste As CustomLayout
Set cltPaste = ActivePresentation.SlideMaster.CustomLayouts.Paste()