Classe TextFrame2 (PowerPoint VBA)

A classe TextFrame2 representa o quadro de texto em um objeto Shape ou ShapeRange. Contém o texto no quadro de texto e expõe propriedades e métodos que controlam o alinhamento e a ancoragem do quadro de texto.

Set

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

Dim tf2 as TextFrame2
Set tf2 = ActiveWindow.RangeFromPoint.TextFrame2

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

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Format with its procedures PathFormat, WarpFormat e WordArtFormat

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).TextFrame2.AutoSize = msoAutoSizeMixed

Column Retorna o objeto Column que representa as colunas do quadro de texto especificado. Somente leitura.

Dim tc2Column As Office.TextColumn2
Set tc2Column = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Column

HasText Indica se a forma que contém o quadro de texto especificado tem texto associado a ela. Somente leitura.

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

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

ActivePresentation.Slides(1).Shapes(1).TextFrame2.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).TextFrame2.MarginBottom = 6

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).TextFrame2.MarginLeft = 6

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).TextFrame2.MarginRight = 6

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).TextFrame2.MarginTop = 6

NoTextRotation Indica se é para girar o texto com a rotação TextFrame2 . Uma das seguintes constantes MsoTriState. Leitura/gravação.

ActiveWindow.RangeFromPoint.TextFrame2.NoTextRotation = msoTrue

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

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

Parent Retorna o objeto pai do quadro de teste especificado. Somente leitura.

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

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

Dim rlrRuler As Office.Ruler2
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Ruler

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

Dim tr2TextRange As Office.TextRange2
Set tr2TextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange

ThreeD Retorna um objeto ThreeDFormat que representa a formatação tridimensional de uma forma pai. Somente leitura.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveWindow.RangeFromPoint.TextFrame2.ThreeD

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

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

WordWrap Determina se as linhas de texto se quebram automaticamente para ajuste dentro da forma. Leitura/gravação.

ActiveWindow.RangeFromPoint.TextFrame2.WordWrap = msoTrue