Auto tilpasse størrelsen på userform i forhold til checkboxes i userformen

Private Sub UserForm_Initialize()

Dim LastColumn  As Long
Dim i          As Long
Dim chkBox      As MSForms.CheckBox

Call ProList ' Fylder arrayet

LastColumn = UBound(UniqueProvisionArray)

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i)
    chkBox.Left = 5
    chkBox.Top = 5 + (i * 20)
   
Next i

Me.Height = chkBox.Top + chkBox.Height + 20  '<++++++++++


End Sub

Du er genial som altid :-)

Kan du forklare mig, hvordan jeg identifcerer bredden af den tekst der står i checkbox.caption.

Hvis min teksten er for lang deler den teksten op på 2 linjer og så går den næste checkbox indover den dobbelt linjede CB...

Jeg ville gerne have at captionen ikke bryder teksten og lader caption teksten blive skrevet ud i en linje...

Jeg vil også gerne have bredden tilpasset udfra størrelsen af caption teksten.

Min kode ser således ud nu:

'Option Explicit

Private Sub CommandButton1_Click()
Call FilterProvisions
End Sub

Private Sub UserForm_Initialize()

Dim LastColumn  As Long
Dim i          As Long
Dim chkBox      As MSForms.CheckBox

Call ProList ' Fylder arrayet

LastColumn = UBound(UniqueProvisionArray)

chkBoxWidth = 0

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i)
    chkBox.Left = 5
    chkBox.Top = 5 + (i * 20)
   
    If chkBoxWidth < chkBox.Width Then
        chkBoxWidth = chkBox.Width
    End If
 
 
 
Next i

CommandButton1.Left = 5
CommandButton1.Top = 5 + ((i) * 20)


Me.Height = Me.CommandButton1.Top + Me.CommandButton1.Height + 25

Me.CommandButton1.Width = Me.Width - 15
'Me.Width = Me.Left ' + chkBoxWidth


End Sub

Tak for de pæne ord - vender tilbage senere..

Svar på #2:

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i)
    chkBox.AutoSize = True                  '<++++++++++
   
    chkBox.Left = 5
    chkBox.Top = 5 + (i * 20)
Next i

Svar på #3
PS: UniqueProvisionArray er substitueret......

'Option Explicit

Private Sub CommandButton1_Click()
Call FilterProvisions
End Sub

Private Sub UserForm_Initialize()

Dim LastColumn  As Long
Dim i          As Long
Dim chkBox      As MSForms.CheckBox
Const tabel = "A;BBBBBBBBB BBBBBBB bbb;CCC;DDDD;EEEEEEEEEEEE EEEEEEEE"

UniqueProvisionArray = Split(tabel, ";")

'Call ProList ' Fylder arrayet

LastColumn = UBound(UniqueProvisionArray)

chkBoxWidth = 0

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i)
    chkBox.AutoSize = True
   
    If chkBox.Width > chkBoxWidth Then      '<+++++
        chkwidth = chkBox.Width
    End If
   
    chkBox.Left = 5
    chkBox.Top = 5 + (i * 20)
   
    If chkBoxWidth < chkBox.Width Then
        chkBoxWidth = chkBox.Width
    End If
 
Next i

CommandButton1.Left = 5
CommandButton1.Top = 5 + ((i) * 20)


Me.Height = Me.CommandButton1.Top + Me.CommandButton1.Height + 25

Me.Width = Me.Left + chkBoxWidth + 15        '<++++++

Me.CommandButton1.Width = Me.Width - 15

End Sub

hmm... Jeg ved ikke helt hvad jeg gør forkert, men den bryder stadig teksten i checkbox caption og tilpasser ikke bredden:

Private Sub UserForm_Initialize()

Dim LastColumn  As Long
Dim i          As Long
Dim chkBox      As MSForms.CheckBox
Dim chkBoxWidth As Integer

Call ProList ' Fylder arrayet

LastColumn = UBound(UniqueProvisionArray)

chkBoxWidth = 0

For i = 0 To LastColumn
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = UniqueProvisionArray(i)
    chkBox.AutoSize = True

    If chkBox.Width > chkBoxWidth Then
        chkBoxWidth = chkBox.Width
    End If
 
    chkBox.Left = 5
    chkBox.Top = 5 + (i * 20)
 
 
 
Next i

CommandButton1.Left = 5
CommandButton1.Top = 5 + ((i) * 20)


Me.Height = Me.CommandButton1.Top + Me.CommandButton1.Height + 25

Me.Width = Me.Left + chkBoxWidth + 15


Me.CommandButton1.Width = Me.Width - 15


End Sub

Skal se på det - vender tilbage senere

Når jeg indsætter min særlige linjer i stedet for "Call ProList - som jeg jo ikke har" i din version (#7) så virker det ok.