Classe CustomLayout (PowerPoint VBA)

A classe CustomLayout representa um layout personalizado associado ao design de uma apresentação. O objeto CustomLayout é um membro da coleção CustomLayouts.

Os principais procedimentos da classe CustomLayout são Copy, Delete, Select e CustomLayouts.Add

Set

Para usar uma variável de classe CustomLayout, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo CustomLayout: Duplicate, CustomLayouts.Item, CustomLayouts.Add, CustomLayouts.Paste, Slide.CustomLayout, SlideRange.CustomLayout e Master.CustomLayouts

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

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

Métodos

Estes são os principais métodos da classe CustomLayout

Copy - Copia o objeto especificado para a Área de transferência.

ActivePresentation.SlideMaster.CustomLayouts(1).Copy

Delete - Exclui o objeto especificado.

ActivePresentation.SlideMaster.CustomLayouts(1).Delete

Select - Seleciona o objeto customLayout especificado.

ActivePresentation.SlideMaster.CustomLayouts(1).Select

CustomLayouts.Add - Retorna um objeto CustomLayout que representa um novo layout personalizado.

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

Propriedades

Background Retorna um objeto ShapeRange que representa o plano de fundo do slide. Somente leitura.

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

CustomerData Retorna um objeto CustomerData.

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

Design Retorna um objeto Design que representa o modelo de design associado ao layout personalizado especificado.

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

FollowMasterBackground Determina se o layout personalizado seguirá o plano de fundo do slide mestre. Leitura/gravação.

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

Guides Retorna a coleção de guias associada a um layout personalizado. Somente leitura.

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

HeadersFooters Retorna uma coleção HeadersFooters que representa o cabeçalho, rodapé, data e hora e número do slide associados ao layout personalizado especificado.

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

Hyperlinks Retorna uma coleção Hyperlinks que representa todos os hiperlinks do slide associado ao layout personalizado especificado. Somente leitura.

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

Index Retorna a posição de índice do layout personalizado especificado na coleção CustomLayouts . Somente leitura.

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

Parent Retorna uma referência ao objeto slide mestre que é o pai do objeto customLayout especificado. Somente leitura.

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

Preserved Determina se o layout personalizado especificado é preservado das alterações. Leitura/gravação.

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

Shapes Retorna um objeto da coleção Shapes que representa todos os elementos de layout incluídos no layout personalizado especificado. Somente leitura.

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

TimeLine Retorna um objeto TimeLine que representa a linha de tempo de animação para o slide associado ao layout personalizado especificado. Somente leitura.

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

CustomLayouts.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

CustomLayouts.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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