Classe TextStyle (PowerPoint VBA)

A classe TextStyle representa uma das três estilos de texto: texto de título, corpo de texto ou texto padrão. Cada estilo de texto contém um objeto TextFrame que descreve como o texto é colocado dentro da caixa delimitadora de texto, um objeto de régua que contém uma coleção TextStyleLevels que contém informações de formatação de texto de estrutura de tópicos e informações de formatação de recuo de tópico e paradas de tabulação. O objeto TextStyle é um membro da coleção TextStyles.

Set

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

Dim tse as TextStyle
Set tse = ActivePresentation.SlideMaster.TextStyles(Type:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo TextStyle: TextStyles.Item e Master.TextStyles

Levels

Retorna um objeto TextStyleLevels que representa a formatação de texto da estrutura de tópicos. Somente leitura.

Dim tslsLevels As TextStyleLevels
Set tslsLevels = ActivePresentation.SlideMaster.TextStyles(1).Levels

Parent

Retorna o objeto parente para o objeto especificado.

Ruler

Retorna um objeto de régua que representa a régua para o texto especificado. Somente leitura.

Dim rlrRuler As Ruler
Set rlrRuler = ActiveWindow.Selection.SlideRange(1).TextStyles(1).Ruler

TextFrame

Retorna um objeto TextFrame que contém o alinhamento e ancoragem propriedades para a forma especificada ou estilo de texto mestre.

Use a propriedade TextRange do objeto TextFrame para retornar o texto no quadro de texto. Use a propriedade HasTextFrame para determinar se uma forma contém um quadro de texto antes de aplicar a propriedade TextFrame .

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveWindow.Selection.SlideRange(1).TextStyles(1).TextFrame

TextStyles.Count

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

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).TextStyles.Count

TextStyles.Item

Retorna um único estilo de texto da coleção TextStyles especificada.

O método Item é o membro padrão para uma coleção. Por exemplo, as duas linhas de código a seguintes são equivalentes: ActivePresentation.Slides.Item(1) ActivePresentation.Slides(1) O valor do parâmetro Type pode ser uma destas constantes PpTextStyleType .

Sintaxe : expression.Item (Type)

Type: O tipo do estilo de texto.

Dim tse As TextStyle
Set tse = ActivePresentation.SlideMaster.TextStyles(Type:=1)

TextStyles.Parent

Retorna o objeto parente para o objeto especificado.