ActiveX命令按钮鼠标悬停的Excel工具提示

Question

我觉得这应该是一个简单的问题，但我在任何地方都找不到答案。我构建了一个宏，并将其分配给ActiveX命令按钮，我只想要一个简单的工具提示，当鼠标悬停在按钮上时显示。

(如果可能的话，我希望它保持ActiveX命令按钮(

谢谢！

Answer 1

在中找到

遵循以下步骤：

1在图纸1上插入ActiveX命令按钮。将其命名为CommandButton1。

2在图纸1上插入一个文本框形状。将其命名为TextBox1。

3在TextBox1中，键入一些文本(例如"单击我"(。

4在VB编辑器中，插入一个类模块。将其命名为clsButton。

5在clsButton模块中键入以下代码：

代码：

Public WithEvents Btn As MSForms.CommandButton
Private Sub Btn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal    X As Single, ByVal Y As Single)
With ThisWorkbook.Worksheets("Sheet1").Shapes("Textbox1")
.Visible = msoTrue
.Top = Y + Me.Btn.Top
.Left = X + Me.Btn.Left
End With
Application.OnTime Now + TimeValue("00:00:01"), "HideIt"
End Sub

6插入一个普通的代码模块。将其命名为Module1。

7在模块1中键入以下代码：

代码：

Dim Cmd As New clsButton
Private Sub ConnectObject()
Set Cmd.Btn = ThisWorkbook.Worksheets("Sheet1").OLEObjects("CommandButton1").Object
End Sub
Private Sub HideIt()
ThisWorkbook.Worksheets("Sheet1").Shapes("Textbox1").Visible = msoFalse
End Sub

8运行"；ConnectObject"；程序

9在Excel中，将鼠标光标移到命令按钮上，观察发生了什么。。。