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

Question

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

Answer 1

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

我有一个叫做的形状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指定一个非活动的超链接.

• 悬停显示工具提示
• 点击什么也没做