如何在每个行的Excel电子表格中向单元格添加表单控件

Question

我如何在Excel中添加表单控件到单元格，我知道我可以绘制它，但我需要使它成为每一行的成员，并且它的值附加到该单元格/行。

Answer 1

有几种方法可以做到这一点，但最简单的，假设Excel 2007是：

Set cb = MyWorkSheet.CheckBoxes.Add(left, top, width, height)
cb.LinkedCell = "$A$1"
cb.Display3DShading = True

您必须对放置进行一些实验，因为我认为没有直接的方法将控件与特定单元格对齐。 另一种方法是使用工作表的Shapes集合：

Set shape = MyWorkSheet.Shapes.AddFormControl(xlCheckBox, l, t, w, h)

但是，请记住，上面的方法返回一个Shape对象而不是CheckBox对象，因此您无法直接操作其属性。 有类似的方法，如使用OLEObjects集合，但这只是增加了更多的痛苦。