Перебрать флажки в VBA

Question

Я пытаюсь создать код для циклического просмотра пользовательской формы, чтобы проверить, установлены ли флажки, а затем создать PDF-файл из листов.Однако я получаю сообщение об ошибке «объект не поддерживает это свойство или метод» в строке «If ctl.controlFormat.Value = True Then».Я надеюсь, что вы можете помочь мне :)

     Option Explicit


Sub Get_PDF_Click()

Dim ReportName As String
ReportName = ActiveSheet.Cells(4, 20).Value
Dim OutputPath As String
OutputPath = "T:\5. Fælles\Optima Lancering Version 1.0\6. Oversigtsark\KontoInvest\Historik\"
Dim YYMM As String
Dim Name_of_File As String
Dim Name As String
'Dim x1TypePDF As Variant
Dim cbox As CheckBox
Dim FormControlType As Variant
Dim ctl As Control
'Dim shp As Shape

YYMM = Format(WorksheetFunction.EoMonth(Now(), -1), "YYMM")

Name = "BankNordik_faktaark" & YYMM
Name_of_File = OutputPath & "BankNordik\" & Name

 '------- LOOP THROUGH CHECKBOXES -------
For i = 0 To 6
    For Each ctl In Me.Controls
    'For Each ctl In PDFUserForm.Controls
        If TypeName(ctl) = "CheckBox" Then
        'If ctl.FormControlType = xlCheckBox Then
            If ctl.ControlFormat.Value = True Then
                    For Each Ws In Worksheets
                        If Ws.Name = "Fakta " & Kunde_Array(i + 1, 1) Then
                            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                            Name_of_File, Quality _
                            :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                            :=False, OpenAfterPublish:=False
                        End If
                    Next Ws
             End If
        End If
    Next ctl
Next i
End Sub