如何在 Excel 中为特定形状添加鼠标悬停提示？

在许多情况下，您需要将宏分配给某个特定形状，以便在工作表中单击该形状时运行宏。在将宏分配给形状后，添加鼠标悬停提示可以帮助您在未来使用时记住该形状的功能。本文向您展示两种在 Excel 中为特定形状添加鼠标悬停提示的方法。

通过添加超链接为特定形状添加鼠标悬停提示
通过 VBA 代码为特定形状添加鼠标悬停提示

通过添加超链接为特定形状添加鼠标悬停提示

您可以为工作表中的特定形状添加带有屏幕提示的超链接。请按照以下步骤操作。

1. 右键单击需要添加鼠标悬停提示的形状，然后从右键菜单中单击“创建超链接”。见截图：

2. 在“ 插入超链接”对话框中，单击“屏幕提示”按钮。在“设置超链接屏幕提示”对话框中，输入当鼠标悬停在形状上时需要显示的屏幕提示文本。最后单击“确定”按钮。见截图：

3. 当返回到“插入超链接”对话框时，单击“书签”按钮。然后在“选择文档中的位置”对话框的单元格引用框中输入 A1，最后单击“确定”按钮。

4. 在“插入超链接”对话框中单击“确定”按钮以完成超链接的创建。

现在，当鼠标悬停在形状上时，您可以看到屏幕提示显示出来。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

通过 VBA 代码为特定形状添加鼠标悬停提示

运行以下 VBA 代码后，您可以轻松地为特定形状添加鼠标悬停提示。

1. 打开包含要移动鼠标显示提示的形状的工作表。右键单击工作表标签，然后从上下文菜单中单击“查看代码”。

2. 在 Microsoft Visual Basic for Applications 窗口中，请将以下 VBA 代码复制到代码窗口中。

VBA 代码 1：为特定形状添加鼠标悬停提示

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3. 单击“插入”>“模块”。然后将以下 VBA 代码输入到模块窗口中。

VBA 代码 2：为特定形状添加鼠标悬停提示

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
    End If
    If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
    End If
    Application.EnableEvents = True
End Sub

注意：

3. 按 F5 键运行代码。然后立即为特定形状添加指定的屏幕提示。

相关文章：

• 如何根据/依赖于指定的单元格值自动更改形状大小？
• 如何在 Excel 中用透明背景色填充形状？
• 如何根据指定的单元格值隐藏或取消隐藏特定形状？