单击excel形状将传递到VBA表单

Question

我遇到了一个我无法解决的问题。重现：

在excel中：

• 添加一个带有列表框的表单，多选，带复选框。在Form_Initialize上，使用项目填充列表框，然后选择所有项目。
• 添加一个用于打开表单的宏
• 向Excel添加形状，指定上述宏。
• 点击形状。

现在，如果形状和形状定位正确，则会发生取消选择鼠标指针下方的项目。奇怪的是，列表中的第一项也被取消选择。

如果列表框中包含lst.Enabled = False，则不会取消选择任何内容。

Answer 1

我找到了解决方案。单击传播后运行激活，因此我使用了：

• 从Form_Initialize
中删除“全选”电话
• 在Form_Activate
中添加“全选”通话
• 使激活码仅运行一次