TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Function LineCount(oSh As Shape) As Long

    ' return zero if no text, -1 if error
    LineCount = 0
    On Error GoTo ErrorHandler
    With oSh
        If .HasTextFrame Then
            If .TextFrame.HasText Then
                LineCount = .TextFrame.TextRange.Lines.Count
            End If
        End If
    End With

NormalExit:
    Exit Function
ErrorHandler:
    LineCount = -1
    Resume NormalExit

End Function

Sub TestLineCount()
    '  Use currently selected shape 
    Debug.Print LineCount(ActiveWindow.Selection.ShapeRange(1))

End Sub