如何在Excel中的单元格中自动对中复选框？

在 Excel 单元格中插入复选框时，您可能会注意到很难按如下屏幕截图所示顺序排列所有复选框。实际上，您可以将所有复选框移动到单元格中心以保持它们整齐排列。本文中的方法可以帮助您。

使用VBA代码的单元格中的自动居中复选框

使用VBA代码的单元格中的自动居中复选框

若要自动将当前工作表中单元格中的所有复选框居中，请执行以下操作。

1.在工作表中，您需要将所有复选框自动居中，然后按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，请点击 插页 > 模块。 然后将VBA代码复制并粘贴到代码窗口中。

VBA代码：自动将单元格中的所有复选框居中

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。 按 F5 键。 然后，所有复选框立即移至单元格的中心，如下图所示。

备注：此VBA代码可以同时应用于CheckBox（ActiveX控件）和CheckBox（窗体控件）。

相关文章：

• 如何在Excel中创建带有多个复选框的下拉列表？
• 在Excel中选中复选框时，如何更改指定的单元格值或颜色？
• 如何在Excel中使用复选框突出显示单元格或行？
• 如何根据Excel中的单元格值选中复选框？