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

Syntax

expression.HasTextFrame

expression A variable that represents a ShapeRange object.

Return Value
MsoTriState

Remarks

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
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.

Visual Basic for Applications 
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: