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