ShapeRange. HasTextFrame-Eigenschaft (PowerPoint)ShapeRange.HasTextFrame property (PowerPoint)

Gibt zurück, ob die angegebene Form einen Textrahmen hat.Returns whether the specified shape has a text frame. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck.expression. HasTextFrame

Ausdruck Eine Variable, die ein ShapeRange -Objekt darstellt.expression A variable that represents a ShapeRange object.

RückgabewertReturn value

MsoTriStateMsoTriState

BemerkungenRemarks

Der Wert der HasTextFrame -Eigenschaft kann einer der folgenden MsoTriState -Konstanten sein.The value of the HasTextFrame property can be one of these MsoTriState constants.

KonstanteConstant BeschreibungDescription
msoFalsemsoFalse Die angegebene Form weist keinen Textrahmen auf und kann daher keinen Text enthalten.The specified shape does not have a text frame and therefore cannot contain text.
msoTruemsoTrue Die angegebene Form hat einen Textrahmen und kann daher Text enthalten.The specified shape has a text frame and can therefore contain text.

BeispielExample

In diesem Beispiel wird aus allen Formen der ersten Folie, die Textrahmen enthalten, Text extrahiert. Anschließend werden die Namen dieser Formen und der darin enthaltene Text in einem Array gespeichert.This example extracts text from all shapes on the first slide that contain text frames, and then it stores the names of these shapes and the text they contain in an array.

Dim shpTextArray() As Variant
Dim numShapes, numAutoShapes, i As Long

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numTextShapes = 0
        ReDim shpTextArray(1 To 2, 1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).HasTextFrame Then
                numTextShapes = numTextShapes + 1
                shpTextArray(numTextShapes, 1) = .Item(i).Name
                shpTextArray(numTextShapes, 2) = .Item(i) _
                    .TextFrame.TextRange.Text
            End If
        Next
        ReDim Preserve shpTextArray(1 To 2, 1 To numTextShapes)
    End If
End With

Siehe auchSee also

ShapeRange-ObjektShapeRange Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.