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

如果您曾经尝试在Excel中插入多个复选框，您可能会遇到难以按逻辑顺序排列它们的问题。在Excel中排列复选框将是一个令人烦恼的过程，因为它们的放置非常随意。但是，使用VBA代码，我们可以轻松地自动居中复选框。本教程将帮助您了解如何在Excel单元格中自动居中复选框。

在Excel单元格中自动居中复选框

在这里，我们将首先插入一个VBA模块，然后运行它来完成我们的任务。让我们来看一个简单的过程，以了解如何使用VBA应用程序在Excel单元格中自动居中复选框。我们的过程将包括ActiveX和窗体控件复选框。ActiveX和窗体控件都位于“开发者”选项下。

步骤1

考虑一个包含多个ActiveX和窗体控件复选框的Excel工作表，如下图所示。

现在，右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后单击“插入”，“选择模块”，并将程序键入文本框中，如下图所示。

程序

Sub CenterCheckbox()
'Updated By nirmal
   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