Question

The scenario is trying to adjust font size to get a nice graphic arrangement, or trying to decide where to break a caption/subtitle. a) In XL VBA is there a way to find out whether a text on a textbox, or caption on a label, still fits the control? b) Is there a way to know where was the text/caption broken on multiline control?

Answer 1

I gave this a rest, gave it enough back-of-head time (which produces far better results than ‘burp a non-answer ASAP, for credits’), and…

Function TextWidth(aText As String, Optional aFont As NewFont) As Single     Dim theFont As New NewFont     Dim notSeenTBox As Control      On Error Resume Next 'trap for aFont=Nothing     theFont = aFont 'try assign      If Err.Number Then 'can't use aFont because it's not instantiated/set         theFont.Name = 'Tahoma'         theFont.Size = 8         theFont.Bold = False         theFont.Italic = False     End If     On Error GoTo ErrHandler      'make a TextBox, fiddle with autosize et al, retrive control width     Set notSeenTBox = UserForms(0).Controls.Add('Forms.TextBox.1', 'notSeen1', False)     notSeenTBox.MultiLine = False     notSeenTBox.AutoSize = True 'the trick     notSeenTBox.Font.Name = theFont.Name     notSeenTBox.SpecialEffect = 0     notSeenTBox.Width = 0 ' otherwise we get an offset (a ''feature'' from MS)     notSeenTBox.Text = aText     TextWidth = notSeenTBox.Width     'done with it, to scrap I say     UserForms(0).Controls.Remove ('notSeen1')     Exit Function  ErrHandler:     TextWidth = -1     MsgBox 'TextWidth failed: ' + Err.Description End Function 

I feel I’m getting/got close to answer b), but I’ll give it a second mind rest… because it works better than stating ‘impossible’ in a flash.