ShapeRange.HasTextFrame Property (PowerPoint)

Returns whether the specified shape has a text frame. Read-only.

Syntax

expression. HasTextFrame

expression A variable that represents a ShapeRange object.

Return Value

MsoTriState

Remarks

The value of the HasTextFrame property can be one of these MsoTriState constants.

Constant Description
msoFalse The specified shape does not have a text frame and therefore cannot contain text.
msoTrue The specified shape has a text frame and can therefore contain text.

Example

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

See also

ShapeRange Object