如何在 VBA 中延迟或推迟代码执行

Question

设想

创建一个空白工作簿并添加一个 ToggleButton 和一个 InkPicture 控件（后者通过 ActiveX 控件 -> 更多控件插入）。 在 InkPicture 控件的SizeChanged事件中，添加以下行：

Sheet1.ToggleButton1.Caption = "foo bar"

问题

上一行中的“未找到方法或数据成员”错误突出显示了该行中.ToggleButton1 。

原因

墨迹图片的SizeChanged事件发生在切换按钮创建之前，并且在某些情况下，该事件发生在工作簿的Open事件之前！ 您可以在立即窗口中Debug.Print相关消息来查看。

题

如何推迟执行墨水图片的SizeChanged代码，直到创建切换按钮并且可以作为工作表的属性访问？ 当然，我可以通过创建一个Boolean变量来解决这个问题，以避免在工作簿的Open结束之前执行 InkPicture 的SizeChanged事件，但这只是纸上谈兵，并没有解决实际问题。

我试过的

• 停止调试器，重新编译 VBA 项目并在之后保存
• 在上面的行之前添加DoEvents
• 将切换按钮的AutoLoad属性设置为True ，以尝试在墨迹图片之前创建切换按钮

在保存并重新打开工作簿后，每次尝试似乎都有效，只是在随后的保存和打开时失败。

注意：我已经编辑了我的帖子，使其更简洁易读，所以尽量不要过于热心，也不要对一个合法的问题投反对票......

Answer 1

根据需要访问的属性，您可以尝试通过Worksheet.OLEObjects集合获取对控件的引用。

例子：

Private Sub InkPicture1_Resize(Left As Long, Top As Long, Right As Long, Bottom As Long)
    Dim oleObj As OLEObject

    Set oleObj = Sheet1.OLEObjects("ToggleButton1")
    oleObj.Left = 1
    oleObj.Top = 1
    '...
End Sub

这样，您就通过 OLEObject 接口与控件进行交互。 因此，某些控件属性可能不可用。 通常，您可以通过抓取 OLEObject.Object 属性，通过其特定的控件接口（即 ToggleButton 接口）与控件进行交互。

Private Sub InkPicture1_Resize(Left As Long, Top As Long, Right As Long, Bottom As Long)
    Dim tb As MSForms.ToggleButton

    Set tb = Sheet1.OLEObjects("ToggleButton1").Object

    tb.Caption = "foo"
End Sub

但是，这似乎会在工作簿启动时导致错误。 我相信这是一个安全的事情。 但是，至少这个错误是一个您可以捕获和处理的运行时，与您现在看到的无法处理的Method 或 data member not found编译器错误相反。

希望这可以帮助！