在电子表格中使用 ActiveX 复选框控件

Question

我正在使用Excel 2013。我有一个 excel 工作簿。工作簿在工作表"图表"中包含 activex 复选框控件。该控件称为 chkAll。打开工作簿时，将应用一些默认设置，其中之一是选中此复选框。下面的代码行是我正在使用的。

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

这在过去几个月中一直有效，但今天它不再有效。获取错误消息"对象不支持此属性或方法"。

此外，当我手动尝试从 ActiveX 控件部分向电子表格添加复选框时，我收到一条错误消息，指出我"无法插入对象"。

不确定为什么现在会发生这些错误？

Answer 1

这是

由阻止 ActiveX 控件在 Excel 工作簿中工作的Microsoft更新引起的。关闭所有办公程序，然后导航到：

C：\Users\[username]\AppData\Local\Temp\Excel8.0

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

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

Answer 2

试试这个（对于工作表内的ActiveX控件）：

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

此外，对于工作表内的表单复选框，请使用：

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