Hoe een selectievakje automatisch centreren in een cel in Excel?

Bij het invoegen van selectievakjes in cellen in Excel, merkt u mogelijk dat het moeilijk is om alle selectievakjes netjes op orde te houden zoals in de onderstaande schermafbeelding te zien is. Eigenlijk kunt u alle selectievakjes naar het midden van de cel verplaatsen om ze netjes geordend te houden. De methode in dit artikel kan u helpen.

Selectievakje automatisch centreren in cel met VBA-code

Selectievakje automatisch centreren in cel met VBA-code

Om automatisch alle selectievakjes in cellen in het huidige werkblad te centreren, volgt u de volgende stappen.

1. Druk in het werkblad waarin u alle selectievakjes automatisch wilt centreren, op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de VBA-code in het codevenster.

VBA-code: Automatisch centreren van alle selectievakjes in cellen

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. Druk op de toets F5. Vervolgens worden alle selectievakjes onmiddellijk naar het midden van de cellen verplaatst, zoals in de onderstaande schermafbeelding te zien is.

Opmerking: Deze VBA-code kan worden toegepast op zowel CheckBox (ActiveX Control) als CheckBox (Formulier Control).

Gerelateerde artikelen:

• Hoe maak je een vervolgkeuzelijst met meerdere selectievakjes in Excel?
• Hoe verander je een specifieke celwaarde of -kleur wanneer een selectievakje is aangevinkt in Excel?
• Hoe markeer je een cel of rij met een selectievakje in Excel?
• Hoe maak je een selectievakje aangevinkt op basis van een celwaarde in Excel?