标签：VBA
如何给工作表中的ActiveX按钮控件添加工具提示？这里给出了一个方法。
其方法是，在按钮控件附近添加一个ActiveX标签，并将其颜色设置为工具提示颜色（可以在属性窗口中执行此操作），接着在按钮控件和工具提示标签后面放置一个大的透明标签，然后将MouseMove事件添加到按钮和大标签中，并相应地隐藏/取消隐藏标签，如下图1所示。
图1
在该工作表代码模块中，添加以下代码：
代码语言：javascript复制Private Sub Button_Test_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Label_ToolTips.Visible = True
Label_Background.Visible = True
End Sub
Private Sub Label_Background_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Label_ToolTips.Visible = Faslse
Label_Background.Visible = False
End Sub此时，当鼠标移动到工作表按钮上方时，会出现提示信息，如下图2所示。
图2
有兴趣的朋友可以试试。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识
