如何在形状优化的鼠标悬停上显示工具提示

Question

我有问题。我已经在excel上创建了一个带有形状的地图。当我将光标指向其中一个位置时，我想要显示信息。先谢谢

Answer 1

我们可以使用可以在MouseOver上显示工具提示的Hyperlink属性。

我有一个名为MyShape的形状。运行此宏：

Sub MeaningOfLife()
    Dim r As Range
    Set r = Selection

    ActiveSheet.Shapes.Range(Array("MyShape")).Select
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Selection.ShapeRange.Item(1), _
        Address:="", _
        ScreenTip:="The Meaning of Life Is..."

    r.Select
End Sub

将为Shape指定一个非活动的超链接。

• 悬停显示工具提示
• 点击不执行任何操作

Answer 2

上述答案的一个限制是形状将在悬停时显示屏幕提示，但分配给形状的宏将无法通过单击工作。 Tim Williams 建议的解决方法：

VBA Run Macro and Screen Tip (or Tool Tip) From Shape. I cannot get the code I found to work