Objeto TextFrame2 (PowerPoint)

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.

Comentários

Use a propriedade TextFrame2 dos objetos Shape e ShapeRange para retornar um objeto TextFrame2.

Use a propriedade HasTextFrame para determinar se uma forma ou intervalo de forma tem um quadro de texto e use a propriedade HasText para determinar se o quadro de texto contém texto.

Exemplo

O seguinte exemplo adiciona um retângulo a um slide, adiciona texto ao retângulo e define as margens do quadro de texto.

Public Sub TextFrame2_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2

        .TextRange.Text = "Here is some sample text"

        .MarginBottom = 10

        .MarginLeft = 10

        .MarginRight = 10

        .MarginTop = 10

    End With

    

End Sub

O exemplo a seguir mostra como usar a propriedade HasTextFrame para determinar se uma forma tem um quadro de texto e, em seguida, como usar a propriedade HasText para determinar se o quadro de texto contém texto.

Public Sub HasTextFrame_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    For Each pptShape In pptSlide.Shapes

        If pptShape.HasTextFrame Then

            With pptShape.TextFrame2

                If .HasText Then MsgBox .TextRange.Text

            End With

        End If

    Next

    

End Sub

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.