Excel怎么用VBA批量插入复选框？

表格中的批量复选框

不清楚你要弊含求加复选框的位置是窗体还是表格，这里只给你发个表格里代码：

Dim i As Long

Dim sheetCheckbox1 As CheckBox

' 表格中批量加表格控件

With ActiveSheet

For i = 1 To 10

.Rows(i).RowHeight = 25

.Range("A" &i).Select

Set sheetCheckbox1 = .CheckBoxes.Add(8.4, Selection.top + 2, 100, 18)

sheetCheckbox1.Caption = "表格控件复选框" &i

Next i

' 表格中批量加窗体控件

For i = 1 To 10

.Rows(i).RowHeight = 25

.Range("A" &i).Select

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _

Link:=False, DisplayAsIcon:=False, _

left:=Selection.left + Selection.Width, _

top:=25 * (i - 1) + 1, _

Width:=108, _

Height:=18).Select

'没找到如何改控件的标题方法

Next i

End With

方法中的参数.CheckBoxes.Add(left, top, width, height)中分别代表控件的首改位置左、上、尺寸者卜判的宽、高；

方法中的参数.OLEObjects.Add(ClassType，Link，DisplayAsIcon，left，rop，width，height）相应也是有位置、宽高的几个参数，用法接近。

。比如，下图表格数据；

这些数据需要由部门主旦好管审核。在制作表格时就需要在“主管审核”这列中添加上可以打对勾的复选框。

2、点开“开发工具”选项卡；

在“控件”组这里，我们点击“插入”；

3、下方d出相关的选项；

看到有一个对勾的复选框，就是需要这个，鼠标点下复选框。

4、光标呈幼细的+字号状态，把光标放在E2单元格，画出一个如下图所示的框。

框中有一个能打对色的方框，右侧有文字。

5、复选框上显示出的8个控制点，鼠标点住其中一个，可以把框调大调小；调宽调窄。

鼠标放在框的边缘，鼠标呈四向箭头状态，点住不放手，可以把框任意移动。

6、鼠标放在框内，然后，右击，d出的菜单中点“编辑文字”；

框内即显出闪烁的光标，在原来框中的“复选框”文字删除；再输入文字即可，比如“已审核”。输入完毕，光标在其它位置点下。E2单元格即添加好复选框。

7、鼠标在“已审核”前面的方框内点下，即可以打上对勾。

在对勾上点下，又可以把对勾取消

8、鼠标放在“已审核”复选框上，右击，d出的菜单中点“复制”；

复制后，再右击d出的菜单中点粘贴。即可粘贴出另一个“蚂顷已审核”复选框；然后，把此“已审核”复选框放在E3单元格上模物铅。

如此类推把其它的都弄好。

9、我们在移动复选框时，每个框可能没有对齐，整体显示有点乱，那么，我们可以把所有复选框进行对齐排列。

鼠标顺序点击：开始－查找和选择－选择对象

10、然后，把所有复选框框住，也就是全部选中复选框。

11、再顺序点击：格式－对齐－水平居中

点击“水平居中”后，可以看到所有复选框都自动排列好，整整齐齐的了。

鼠标在其它位置点下，取消对象的选择。效果如下图所示。

12、部门主管，审核数据后，鼠标点下即可打上对勾。

10. excel复选框设置背景颜色

设置复选框：右键点击excel的菜单栏空白处，勾选“窗体”，出现一个“窗体”工具栏，里边有一个“复选框”，点击后鼠标变成小十字，按住鼠标左键拉动即可设置出复选框。相关链接：在完成上述动作后，复选框周围有一个和文本框类似的边框，鼠标放置在该边框上，双击，d出“设置控件格式”对话框（或右键单击复选框，也会出现该边框，选择右键菜单里的“设置控件格式”），在“控制”中的“单元格链接”中设置连接即可

软件版本：Office2007

方法如下：

1.可以通过录制宏，插入一个复选框，然后查看代码如下：

2.然后修改代码成为我们想要的，ActiveSheet即工作表，我们改成Sheet1

四个数据，分别是距薯裂离顶端位置，距离左边位置，复选框长度，复选框高度（可以更改数值，看看复选框的变化，就能知道每个数据的意思），改尺圆成我们需要的，如果是在某个单元格中，可以利用range的top和left选项获得单元格的位置，数困闭如下图所示代码：

3.F5执行代码，返回Excel，就可以看到插入的复选框：

---