如何在Excel中将鼠标悬停在特定形状上？

在许多情况下，您需要将宏分配给某种形状，以便在工作表中单击它来运行宏。 将宏分配给形状后，将鼠标悬停在提示上可以帮助您提醒形状将来使用。 本文介绍了两种在Excel中将鼠标悬停到特定形状的方法。

通过添加超链接将鼠标悬停在提示上以达到特定形状
使用VBA代码将鼠标悬停在笔尖上达到特定形状

通过添加超链接将鼠标悬停在提示上以达到特定形状

您可以使用ScreenTip将超链接添加到工作表中的特定形状。 请执行以下操作。

1.右键单击您需要在鼠标上方添加鼠标的形状，然后单击 超链接 从右键单击菜单中。 看截图：

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

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

4。 点击 OK 按钮在 插入超链接 对话框以完成超链接的创建。

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

使用VBA代码将鼠标悬停在笔尖上达到特定形状

运行以下VBA代码后，您可以轻松地将鼠标悬停在尖端上的特定形状。

1.打开工作表，其中包含将鼠标移至上方时显示的形状。 右键单击工作表选项卡，然后从上下文菜单中单击“查看代码”。

2.在 Microsoft Visual Basic应用程序 窗口，请将下面的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中基于/取决于指定的单元格值自动更改形状大小？
• 如何在Excel中使用透明背景色填充形状？
• 如何根据Excel中指定的单元格值隐藏或取消隐藏某个形状？