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

如何解决鼠标悬停在 ActiveX 命令按钮上的 Excel 工具提示

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

（如果可能的话，我希望它保留一个 ActiveX 命令按钮）

谢谢！

解决方法

找到there

请按照以下步骤操作：

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

2 在 Sheet1 上插入一个文本框形状。将其命名为 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 在 Module1 中输入以下代码：

代码：

  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 中，将鼠标光标移到命令按钮上并观察会发生什么...