Z-Order问题

Question

我在电子表格中有多个形状和复选框。我想创建一个函数，在单击相应的复选框时，将特定形状放在前面（比其对等点更高的Z顺序）。这是我目前的代码：

Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Sheet1.Shapes("blueoval").ZOrder msoBringToFront
End If
End Sub

每当我运行此代码时，我都会得到运行时错误'424'。我是VBA的新手，所以任何帮助都将不胜感激。这段代码出了什么问题？少了什么东西？等等..谢谢！

Answer 1

您的代码适合我。

检查：

您的复选框是ActiveX控件，而不是Form控件。 复选框名称为CheckBox3。 Sheet1上有一个名为blueoval的形状。 带有蓝色椭圆的工作表名称实际上是Sheet1（在Visual Basic编辑器中检查）。 在Visual Basic编辑器中，选择工具＆gt;引用并确保没有标记为MISSING的引用。 您的代码位于工作表上，其中包含复选框，而不在单独的模块中。