我将一个透明的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
答案 0 :(得分:0)
尝试向对象添加超链接并使用其工具提示,可以毫不费力地解决您的问题。