I've set up radio-button-controlled font tags to resize text in a full-screen text graphic, but the size of the font in the original text dictates the leading of multiple rows of text within the text field. After a little reasearch, I thought I might be able to GetTextHeight and then SetLeading.
I tried the script below in OnSetText. It compiled, but it didn't do what I need.
dim Body1Output as xpTextObject
Self.GetTextHeight(Body1Output.text)
Body1Output.Leading=Body1Output.textHeight