如何在Excel中自动将复选框居中于单元格？

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

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

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

要自动将当前工作表中所有单元格内的复选框居中，请按照以下步骤操作。

1. 在需要自动将所有复选框居中的工作表中，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后复制并粘贴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中使复选框被选中？