Classe Guide (PowerPoint VBA)

A classe Guide representa uma guia de desenho na apresentação ou no layout personalizado.

Set

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

Dim gui as Guide
Set gui = ActivePresentation.SlideMaster.CustomLayouts(1).Guides(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Guide: Guides.Item, Guides.Add, CustomLayout.Guides, Master.Guides e Presentation.Guides

Color

Retorna um objeto ColorFormat que representa a cor da guia de desenho. Somente leitura.

Dim cftColor As ColorFormat
Set cftColor = ActivePresentation.SlideMaster.CustomLayouts(1).Guides(1).Color

Delete

Remove a guia de desenho da apresentação ou layout personalizado.

ActivePresentation.SlideMaster.CustomLayouts(1).Guides(1).Delete

Orientation

Retorna a orientação da guia de desenho horizontal ou vertical como uma constante da enumeração PpGuideOrientation . Somente leitura.

Os valores possíveis são ppHorizontalGuide - Representa uma guia horizontal, abrangendo da esquerda para a direita da janela de edição de slides, ppVerticalGuide - Representa uma guia vertical, que se estenda da borda superior para a parte inferior da janela de edição de slides.
Dim pgoOrientation As PpGuideOrientation
pgoOrientation = ActivePresentation.SlideMaster.CustomLayouts(1).Guides(1).Orientation

Parent

Retorna o pai do objeto especificado. Objetosomente leitura.

Position

Retorna ou define um valor único que representa a posição da guia de desenho ao longo do eixo x ou y. Leitura/gravação.

ActivePresentation.SlideMaster.CustomLayouts(1).Guides(1).Position =

Guides.Add

Adiciona uma nova guia de desenho à apresentação, slide mestre ou layout personalizado.

Sintaxe : expression.Add (Orientation, Position)

Dim gui As Guide
Set gui = ActivePresentation.SlideMaster.CustomLayouts(1).Guides.Add(Orientation:=ppHorizontalGuide, Position:=)

Arguments

O seguinte argumento é opcional

Orientation (PpGuideOrientation) - Especifica a orientação de uma guia de desenho, horizontal ou vertical.

Os valores possíveis são ppHorizontalGuide - Representa uma guia horizontal, abrangendo da esquerda para a direita da janela de edição de slides, ppVerticalGuide - Representa uma guia vertical, que se estenda da borda superior para a parte inferior da janela de edição de slides.

Position (Single) - A posição da guia ao longo do eixo especificado.

Guides.Count

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

Dim lngCount As Long
lngCount = ActivePresentation.SlideMaster.CustomLayouts(1).Guides.Count

Guides.Item

Retorna um objeto guia do conjunto.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto guia da coleção a ser retornado.

Dim gui As Guide
Set gui = ActivePresentation.SlideMaster.CustomLayouts(1).Guides(Index:=1)

Guides.Parent

Retorna o pai do objeto especificado. Objetosomente leitura.