command button test shrink to fit

ThomasOES · Mar 13, 2019

Hello
I would like the font on a command button to adapt to the amount of text. If the amount of text from Range("SeqName") is too much and the button is allowed to autosize, the button fills the entire width of the userform. I looked for a shrink to fit option, but no luck. Is there an option for the font to adapt to the amount of text? Below is the code for the command button properties. I named the command button "PrintSeq_But", the userform is named "E1019_Ctrl".

Code:

[FONT=Verdana]With E1019_Ctrl.PrintSeq_But
    .Caption = "Print " & Range("SeqName").Value & " Sequence"
    .Font.Bold = True
    .FontSize = 12
    .Width = 300
    .Left = (E1019_Ctrl.InsideWidth - .Width) / 2
    .Top = 150
End With[/FONT]

I would like a .shrinktofit=true
Sometimes Range("SeqName") is several words

Thanks

Tom

Akuini · Mar 13, 2019

Just an idea, if the range text is too long then cut it in certain length & add some dots in the end & use ControlTipText to show the complete range text.

DanteAmor · Mar 14, 2019

Try the following. Start in fontsize at 12 and reduce to a minimum of 6

Code:

Private Sub UserForm_Activate()
    Dim fsize As Long, n As Long
    fsize = 12
    n = 0
    Do While True
        With E1019_Ctrl.PrintSeq_But
            .AutoSize = True
            .WordWrap = False
            .Caption = "Print " & Range("SeqName").Value & " Sequence"
            .Font.Bold = True
            .Font.Size = fsize
            .Left = (E1019_Ctrl.InsideWidth - .Width) / 2
            .Top = 150
            If .Width > E1019_Ctrl.Width Then
                fsize = fsize - 1
            Else
                Exit Do
            End If
        End With
        n = n + 1
        If n = 7 Then Exit Do
    Loop
End Sub

command button test shrink to fit

ThomasOES

Board Regular

Excel Facts

Akuini

Well-known Member

DanteAmor

Well-known Member

Similar threads

Forum statistics

Share this page

command button test shrink to fit

ThomasOES

Board Regular

Excel Facts

Akuini

Well-known Member

DanteAmor

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock