在电子表格中使用activexcheckbox控件

我正在使用Excel 2013.我有一个Excel工作簿。 工作簿在工作表“图表”中包含一个activexcheckbox控件。 该控件被称为chkAll。 打开工作簿时会应用一些默认设置，其中之一是使该checkbox处于选中状态。 下面的代码行是我正在使用的。

Sheets("charts").chkAll.value = true 

这在过去的几个月里一直有效，但是现在它已经不能工作了。 获取错误消息“对象不支持此属性或方法”。

另外，当我手动尝试从ActiveX控件部分添加一个checkbox到电子表格时，我收到一条错误消息，说我“无法插入对象”。

不知道为什么这些错误现在发生？

Answer 1

这是由防止在Excel工作簿中使用ActiveX控件的Microsoft更新引起的。 closures所有办公室程序，然后导航到：

C：\ Users \ [用户名] \ AppData \本地\ TEMP \ Excel8.0

并删除MSForms.exd文件将解决此问题。

这是一个临时文件，将在您再次启动Excel时重新创build，因此不用担心删除它。

Answer 2

试试这个（用于工作表中的ActiveX控件）：

 ThisWorkbook.Sheets("charts").Shapes("chkAll").OLEFormat.Object.Value = 1 '= true // for false the value is -4146. 

此外，对于表单内的表单checkbox，请使用：

 ThisWorkbook.Sheets("charts").Shapes("chkAll").ControlFormat.Value = 1 '= true // for false the value is 0.