HasTextFrame Property

       

Returns an MsoTriState constant if the specified shape has a TextFrame object associated with it. Read-only.

MsoTriState can be one of these MsoTriState constants.
msoCTrue  Not used with this property.
msoFalse  The specified shape does not have a TextFrame object associated with it.
msoTriStateMixed  Indicates a combination of msoTrue and msoFalse for the specified shape range.
msoTriStateToggle  Not used with this property.
msoTrue  The specified shape has a TextFrame object associated with it.

expression.HasTextFrame

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

If the HasTextFrame property is true, clients must check the value of the HasText property of the TextFrame object to determine if there is any text on the shape.

Example

This example tests all the shapes in the selection and if none have text frames associated with them, they are left aligned. 

Sub MoveLeft()

    Dim shpAll As ShapeRange

    Set shpAll = Application.ActiveDocument.Selection.ShapeRange
    If shpAll.HasTextFrame = msoFalse Then
        shpAll.Align msoAlignLefts, msoTrue
    End If

End Sub