Classe TextFrame (PowerPoint VBA)

A classe TextFrame representa o quadro de texto em um objeto Shape. Contém o texto no quadro de texto e propriedades e métodos que controlam o alinhamento e ancoragem do quadro de texto.

Set

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

Dim tfe as TextFrame
Set tfe = ActiveWindow.RangeFromPoint.TextFrame

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo TextFrame: Shape.TextFrame, ShapeRange.TextFrame e TextStyle.TextFrame

Propriedades

AutoSize Retorna ou define um valor que indica se o tamanho da forma especificada será alterado automaticamente para ajustar o texto a seus limites. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.AutoSize = ppAutoSizeMixed

HasText Retorna se a forma especificada tem texto associado a ela. Somente leitura.

Dim mtsHasText As Office.MsoTriState
mtsHasText = ActivePresentation.Slides(1).Shapes(1).TextFrame.HasText

HorizontalAnchor Retorna ou define o alinhamento horizontal do texto em um quadro de texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.HorizontalAnchor = msoHorizontalAnchorMixed

MarginBottom Retorna ou define a distância em pontos entre a parte inferior do quadro de texto e a parte inferior do retângulo inscrito da forma que contém o texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginBottom = 5

MarginLeft Retorna ou define a distância em pontos entre a borda esquerda do quadro de texto e a borda esquerda do retângulo inscrito da forma que contém o texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginLeft = 5

MarginRight Retorna ou define a distância em pontos entre a borda direita do quadro de texto e a borda direita do retângulo inscrito da forma que contém o texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginRight = 5

MarginTop Retorna ou define a distância em pontos entre a parte superior do quadro de texto e a parte superior do retângulo inscrito da forma que contém o texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginTop = 5

Orientation Retorna ou define a orientação do texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.Orientation = msoTextOrientationMixed

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.TextFrame.Parent

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

Dim rlrRuler As Ruler
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler

TextRange Retorna um objeto TextRange que representa o texto no quadro de texto especificado. Somente leitura.

Dim treTextRange As TextRange
Set treTextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange

VerticalAnchor Retorna ou define o alinhamento vertical do texto em um quadro de texto. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).TextFrame.VerticalAnchor = msoVerticalAnchorMixed

WordWrap Determina se as linhas se quebram automaticamente para se ajustarem ao interior da forma. Leitura/gravação.

ActiveWindow.RangeFromPoint.TextFrame.WordWrap = msoTrue