excel vba如何用代码在单元格内插入复选框（activeX控件），求代码

软件版本：Office2007

方法如下：

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

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

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

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

Private

Sub

Form_Load()

HScroll1.Max

=

200

'最大值

HScroll1.Min

=

0

'最小值

HScroll1.Value

=

100

'初始滚动值

HScroll1.LargeChange

=

10

'大改变

HScroll1.SmallChange

=

5

'小改变

End

Sub

Private

Sub

HScroll1_Change()

Print

HScroll1.Value

End

Sub

不懂请追问，满意请采纳

1.数据做好，在旁边增加一列辅助列，并输入如图公式。

2.公式下拉，报表数据有多少行，就拉到多少行。

3.工具栏－开发工具－插入－组合框。

4.在工作表中画出控件，右击控件，设置控件格式。

5.如图设置，先把报表的各类名称依次排列下来。

6.选中辅助列数据－插入图表－三维柱形图。

7.右击选中控件－单击按住控件移到图表内，再进行图表美化，就成了。

---