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

时间:2018-05-03 23:16:00

标签: excel-vba mouseover vba excel

我将一个透明的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

1 个答案:

答案 0 :(得分:0)

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