🚀 go-pugleaf

Hey all,

I'm trying to come up with some VB code to fit text to frame in ID. So far I have the following:

Private Sub FitTextToBox(idTextFrame As InDesign.TextFrame, _
                         XMLTagName As String, _
                         MinFontPointSizeWhenFittingToBox As Long, _
                         MaxFontPointSizeWhenFittingToBox As Long, _
                         FontPointSizeToIncrimentByWhenFittingToBox As Long)

Dim NewPointSize As Variant

idTextFrame.Texts(1).PointSize = MinFontPointSizeWhenFittingToBox / 10
    If idTextFrame.OverFlows Then
      MsgBox ("Warning: The text for text box " & XMLTagName & " overflows the textbox at the mimimum font point size of " & CStr(Round((MinFontPointSizeWhenFittingToBox / 10), 1)))
    End If

For NewPointSize = (MinFontPointSizeWhenFittingToBox / 10) To (MaxFontPointSizeWhenFittingToBox / 10) Step (FontPointSizeToIncrimentByWhenFittingToBox / 10)
      idTextFrame.Texts(1).PointSize = NewPointSize
      If idTextFrame.OverFlows Then
        idTextFrame.Texts(1).PointSize = NewPointSize - (FontPointSizeToIncrimentByWhenFittingToBox / 10)
        If idTextFrame.OverFlows Then
          idTextFrame.Texts(1).PointSize = NewPointSize - (FontPointSizeToIncrimentByWhenFittingToBox / 10)
        End If
        Exit For
      End If
    Next

End Sub

This kind of works well, exept that
 idTextFrame.Texts(1).PointSize = only seems to change the PointSize of the visible text in the box, not the overflowed text.

Does anyone have a better method of doing what i'm trying to do?