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.

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.Add, Designs.Clone, Designs.Item, Designs.Load, Master.Design, Slide.Design e SlideRange.Design.

Delete

Exclui o objeto de design especificado.

ActivePresentation.Designs(1).Delete

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

MoveTo

Move o objeto especificado para um local específico dentro da mesma coleção, renumerando todos os outros itens da coleção apropriadamente.

MoveTo (toPos)

toPos: A posição no índice a qual será movido o efeito de animação.

Dim lngtoPos As Long: lngtoPos = 15
ActivePresentation.Designs(1).MoveTo toPos:=lngtoPos

Name

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

Você pode usar o nome do objeto em conjunto com o método Item para retornar uma referência ao objeto se o método Item da coleção que contém o objeto tem um argumento Variant . Por exemplo, se o valor da propriedade Name de uma forma for Rectangle 2, .Shapes("Rectangle 2") retornará uma referência a essa forma.

ActivePresentation.Designs(1).Name =

Preserved

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

O valor da propriedade preservada pode ser uma destas constantes MsoTriState .

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