Grossir les checkboxs

[ascal44]

Bonsoir le forum ,

J'ai un code pour m'afficher des checkboxs, mais je voudrais pouvoir les voir plus 3 fois plus gros avec le texte en blanc.

Que faut il apporter en plus à ce code ?

Dim Obj, L As String, g, s, d, h, e, a, b, C, dd ' charge les checkboxs de places
      Dim chaine As String
    If TextBox8 = "" Then Exit Sub
    TextBox8 = UCase(TextBox8)
    Tbl = Split(TextBox8, " ")
    TblEnleve = Tbl
    For i = 0 To UBound(TblEnleve)
        TblEnleve(i) = ""
    Next i
    For i = 0 To UBound(Tbl)
        L = Left(Tbl(i), 1)
        Select Case L
        Case "A"
            a = a + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * a    'top
            g = 900    'left

        Case "B"
            b = b + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * b    'top
            g = 900 + d    'left

        Case "C"
            C = C + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * C    'top
            g = 900 + d * 2    'left
        Case "D"
            dd = dd + 1
            Set Obj = Me.Controls.Add("forms.CheckBox.1")
            d = 40    'widht
            h = 20    'height
            s = 400 + h * dd    'top
            g = 900 + d * 3    'left

        End Select

        With Obj
            .Caption = Tbl(i)
            .Left = g: .Top = s: .Width = d: .Height = h
        End With

        VBA.UserForms.Add (Me.Name)
    Next

    IniCheckbox

Merci pour vos conseils

 

[fhoest]

Re : Grossir les checkboxs

Bonsoir,
pas tester mais je verrai bien:

        With Obj
            .Caption = Tbl(i)
            .Left = g: .Top = s: .Width = d*3: .Height = h*3
        .forecolor=rgb(255,255,255)
End With

A+

 

[ascal44]

Re : Grossir les checkboxs

Bonsoir ,
la couleur fonctionne bien , j'ai rajouté la taille de police du checkbox mais la case à cocher reste à la taille originale.

With Obj
            .Caption = Tbl(i)
            .Left = g: .Top = s: .Width = d * 3: .Height = h * 3
        .ForeColor = RGB(255, 255, 255)
        .FontSize = 16
        
        End With

 

[fhoest]

Re : Grossir les checkboxs

Bonjour,
si ce que tu veux c'est agrandir le carré de selection de la checkbox je pense que cela soit impossible, toute fois il est possible de faire la meme chose avec un commandbutton avec un fond blanc et un peu de code pour changer le caption en "v" ou rien avec un .font.police= 20 ou 30 ou +
ceci est c'est que j'essayerai de faire dans ce cas ci
A bientot.

 

[ascal44]

Re : Grossir les checkboxs

Bonjour , OK je me résoud à laisserdes petits checkboxs