🚀 go-pugleaf

ID has a pretty rich document model. A TextFrame is composed of paragraphs
which contains lines, words and characters. So if you have a 1 paragraph
textframe you'd find it's line count by doing this:
Set myP = myTextFrame.Parapgraphs.Item(1)
MsgBox(myP.TextLines.Count)

I assume you want to adjust tracking and not leading. Given myTF is your
textframe you could do something like this:

    Set myP = myTF.Paragraphs.Item(1)
    Do While myTF.TextLines.Count = 2
        myP.Tracking = myP.Tracking - 10
    Loop

Change the 10 if you want smaller increments, ID uses 10 by default in the
interface.

~Chris

"Iolaire McFadden" <imcfadden@costar.com> wrote in message
news:1de9c4c1.-1@WebX.la2eafNXanI...
> Hi, I'd like to fit the text content of a cell to the cell width so it
doesn't wrap onto two lines. My desired logic is to identify (test) a cell
which overflows or has text on two lines and to adjust it's Leading until
the test is false. However I can not find out how to measure the length of
the text or figure out how many lines it is.
>
> Please can someone suggest how to determine if the text in the cell wraps
or is longer than the cell width in Visual Basic?
> Thank you,
> iolaire