Come centrare automaticamente una casella di controllo in una cella in Excel?

Durante l'inserimento di caselle di controllo nelle celle di Excel, potresti notare che è difficile disporre tutte le caselle di controllo in modo ordinato come mostrato nello screenshot sottostante. In realtà, puoi spostare tutte le caselle di controllo al centro della cella per mantenerle in ordine in modo pulito. Il metodo descritto in questo articolo può aiutarti.

Centra automaticamente la casella di controllo nella cella con il codice VBA

Centra automaticamente la casella di controllo nella cella con il codice VBA

Per centrare automaticamente tutte le caselle di controllo nelle celle del foglio di lavoro corrente, procedi come segue.

1. Nel foglio di lavoro in cui desideri centrare automaticamente tutte le caselle di controllo, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il codice VBA nella finestra del codice.

Codice VBA: Centra automaticamente tutte le caselle di controllo nelle celle

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. Premi il tasto F5. Quindi, tutte le caselle di controllo vengono immediatamente spostate al centro delle celle come mostrato nello screenshot sottostante.

Nota: Questo codice VBA può essere applicato sia a CheckBox (Controllo ActiveX) che a CheckBox (Controllo Modulo).

Articoli correlati:

• Come creare un elenco a discesa con più caselle di controllo in Excel?
• Come modificare il valore o il colore di una cella specificata quando la casella di controllo è selezionata in Excel?
• Come evidenziare una cella o una riga con una casella di controllo in Excel?
• Come rendere selezionata una casella di controllo in base al valore della cella in Excel?