如何在鼠标悬停结束后结束宏（或触发不同的宏）

Question

我将一个透明的active-x标签盒覆盖在工作表的形状上，以允许鼠标悬停触发器显示一个解释性的隐藏文本框。代码如下。

我想知道的是，在离开鼠标悬停状态时是否有能力可以再次自动隐藏文本框。

想法？

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    ActiveSheet.Shapes.Range(Array("IndexTBSection1")).Visible = True

End Sub

Answer 1

尝试向对象添加超链接并使用其工具提示，可以毫不费力地解决您的问题。