¿Cómo centrar automáticamente una casilla de verificación en una celda en Excel?

Al insertar casillas de verificación en las celdas de Excel, podrías notar que es difícil organizar todas las casillas de forma ordenada, como se muestra en la captura de pantalla a continuación. En realidad, puedes mover todas las casillas de verificación al centro de las celdas para mantenerlas ordenadas y prolijas. El método en este artículo puede ayudarte.

Centrar automáticamente una casilla de verificación en una celda con código VBA

Centrar automáticamente una casilla de verificación en una celda con código VBA

Para centrar automáticamente todas las casillas de verificación en las celdas de una hoja de trabajo actual, sigue los siguientes pasos.

1. En la hoja de trabajo donde necesitas centrar automáticamente todas las casillas de verificación, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el código VBA en la ventana de código.

Código VBA: Centrar automáticamente todas las casillas de verificación en las celdas

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. Presiona la tecla F5. Luego, todas las casillas de verificación se moverán al centro de las celdas inmediatamente, como se muestra en la siguiente captura de pantalla.

Nota: Este código VBA se puede aplicar tanto a CheckBox (Control ActiveX) como a CheckBox (Control de Formulario).

Artículos relacionados:

• ¿Cómo crear una lista desplegable con múltiples casillas de verificación en Excel?
• ¿Cómo cambiar el valor o color de una celda específica cuando se marca una casilla de verificación en Excel?
• ¿Cómo resaltar una celda o fila con una casilla de verificación en Excel?
• ¿Cómo hacer que una casilla de verificación esté marcada según el valor de una celda en Excel?