Shape.HasTextFrame-Eigenschaft (PowerPoint)

Gibt zurück, ob die angegebene Form einen Textrahmen hat. Schreibgeschützt.

Syntax

Ausdruck. HasTextFrame

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

MsoTriState

Hinweise

Der Wert der HasTextFrame -Eigenschaft kann eine der folgenden MsoTriState -Konstanten entsprechen.

Konstante	Beschreibung
msoFalse	Die angegebene Form weist keinen Textrahmen auf und kann daher keinen Text enthalten.
msoTrue	Die angegebene Form hat einen Textrahmen und kann daher Text enthalten.

Beispiel

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.

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 auch

Shape-Objekt

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.