Objeto TextFrame2 (PowerPoint)

Representa el marco de texto en un objeto Shape o ShapeRange. Contiene el texto del marco de texto y expone las propiedades y los métodos que controlan la alineación y la delimitación del marco de texto.

Comentarios

Utilice la propiedad TextFrame2 de los objetos Shape y ShapeRange para devolver un objeto TextFrame2.

Utilice la propiedad HasTextFrame para determinar si una forma o un intervalo de formas tiene un marco de texto y utilice la propiedad HasText para determinar si el marco de texto contiene texto.

Ejemplo:

En el siguiente ejemplo se agrega un rectángulo a una diapositiva, se agrega texto al rectángulo y luego se establecen los márgenes para el marco 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

En el ejemplo siguiente se muestra cómo utilizar la propiedad HasTextFrame para determinar si una forma tiene un marco de texto y, a continuación, cómo usar la propiedad HasText para determinar si el marco de texto contiene 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

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.