Overflowing Property

expression.Overflowing

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

Example

This example increases the height of the selected text frame if it contains overflowing text.

Sub IncreaseTextBoxHeight()
    With Selection.ShapeRange.TextFrame
        If .Overflowing = msoTrue Then
            Do
                .Parent.Height = .Parent.Height + 36
            Loop Until .Overflowing = msoFalse
        End If
    End With
End Sub