Como centralizar automaticamente a caixa de seleção na célula no Excel?

Ao inserir caixas de seleção em células no Excel, você pode notar que é difícil organizar todas as caixas de seleção de forma ordenada, como mostra a captura de tela abaixo. Na verdade, você pode mover todas as caixas de seleção para o centro da célula para mantê-las organizadas de maneira arrumada. O método neste artigo pode ajudá-lo.

Centralize automaticamente a caixa de seleção na célula com código VBA

Centralize automaticamente a caixa de seleção na célula com código VBA

Para centralizar automaticamente todas as caixas de seleção nas células de uma planilha atual, siga os passos abaixo.

1. Na planilha onde você precisa centralizar automaticamente todas as caixas de seleção, pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela de código.

Código VBA: Centralizar automaticamente todas as caixas de seleção nas células

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. Pressione a tecla F5. Em seguida, todas as caixas de seleção serão movidas para o centro das células imediatamente, como mostra a captura de tela abaixo.

Observação: Este código VBA pode ser aplicado tanto à CheckBox (Controle ActiveX) quanto à CheckBox (Controle de Formulário).

Artigos relacionados:

• Como criar uma lista suspensa com várias caixas de seleção no Excel?
• Como alterar o valor ou cor de uma célula específica quando a caixa de seleção está marcada no Excel?
• Como destacar célula ou linha com caixa de seleção no Excel?
• Como marcar a caixa de seleção com base no valor da célula no Excel?