TextFrame2-Objekt (PowerPoint)

Stellt den Textrahmen in einem Shape - oder ShapeRange -Objekt dar. Enthält den Text im Textrahmen und macht die Eigenschaften und Methoden verfügbar, die die Ausrichtung und Verankerung des Textrahmens steuern.

Hinweise

Verwenden Sie die TextFrame2 -Eigenschaft des Shape- und ShapeRange -Objekte, um ein TextFrame2 -Objekt zurückzugeben.

Verwenden Sie die HasTextFrame -Eigenschaft bestimmt, ob eine Form oder einen Formenbereich einen Textrahmen aufweist, und verwenden Sie die HasText -Eigenschaft, um festzustellen, ob der Textrahmen Text enthält.

Beispiel

Im folgenden Beispiel wird einer Folie ein Rechteck hinzugefügt. Anschließend wird dem Rechteck Text hinzugefügt, und dann werden die Ränder für den Textrahmen festgelegt.

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

Das folgende Beispiel zeigt, wie Sie die HasTextFrame -Eigenschaft, um zu bestimmen, ob eine Form einen Textrahmen hat, und anschließend, wie Sie die HasText -Eigenschaft verwenden, um zu bestimmen, ob der Textrahmen Text enthält.

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

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.