How many lines in the text box?
You're programmatically adding text to a text box but need to know when the text box gets over a predetermined size.
Knowing just the text you're plugging into the text box, it's hard to guess how many lines the text box will occupy.
This function will tell you:
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
See How do I use VBA code in PowerPoint? to learn how to use this example code.