Posted By
Chris Schulp
05-18-2012 16:40
Found In
Egroup:
Graphics
\
view thread
Hi D'Arc, try this.. Dim maxWidth As Double Dim newText As String Dim line As String Dim strWord As String Dim list As Array maxWidth = 400 'maxWidth = Self.AutoSqueezeWidth If Self.GetTextWidthS(Text) > maxWidth Then list = Split(Text, " ...
|