Classe Design (PowerPoint VBA)

A classe Design representa um modelo de design de slide individual. O objeto de Design é um membro dos conjuntos de Designs e SlideRange e os objetos Master e Slide.

Os principais procedimentos da classe Design são Delete e Designs.Add

Set

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

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Design: CustomLayout.Design, Designs.Item, Designs.Add, Designs.Clone, Designs.Load, Master.Design, Slide.Design, SlideRange.Design e Presentation.Designs

Métodos

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

Delete - Exclui o objeto de design especificado.

ActivePresentation.Designs(1).Delete

Designs.Add - Retorna um objeto Design que representa um novo design de slide.

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

Estes são os principais métodos da classe

Designs.Clone - Cria uma cópia de um objeto Design.

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

Designs.Load - Retorna um objeto Design que representa um design carregado na lista mestre da apresentação especificada.

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

Propriedades

Index Retorna um Long que representa o número de índice para um efeito de animação ou design. Somente leitura.

Dim lngIndex As Long
lngIndex = ActivePresentation.Designs(1).Index

Name Retorna ou define o nome do objeto especificado. Leitura/gravação.

ActivePresentation.Designs(1).Name =

Parent Retorna o objeto parente para o objeto especificado.

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

Preserved Representa o fato de um design mestre ser ou não preservado contra alterações. Leitura/gravação.

ActivePresentation.Designs(1).Preserved = msoTrue

SlideMaster Retorna um objeto Master que representa o slide mestre. Somente leitura.

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.Designs(1).SlideMaster

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

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

Designs.Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActivePresentation.Designs.Parent