如何在Excel形状（地图）鼠标悬停时显示Tooltip

嘿，这个需求其实Excel里有两种常用的实现方式，看你需要简单快速还是更灵活的自定义效果，我给你分步讲清楚：

方法一：用Excel内置屏幕提示（适合简单静态文本） #

这是最省心的方式，不需要写代码，几步就能搞定：

• 选中地图上你要添加提示的某个形状区域
• 右键点击该形状，选择设置形状格式（或者直接点击顶部菜单栏的「形状格式」选项卡）
• 在右侧弹出的设置面板中，找到「大小与属性」的图标（看起来像个小方框带箭头），展开后找到可选文字部分
• 在「屏幕提示」输入框里，填入你要显示的提示内容，比如「广东省：常住人口1.26亿，GDP超12万亿」
• 点击确定，现在把光标悬停在这个形状上，就能看到默认样式的Tooltip了

方法二：用VBA实现自定义Tooltip（适合复杂/动态内容） #

如果需要更灵活的提示内容（比如从单元格读取动态数据、自定义显示位置或样式），可以用VBA来实现：

1. 启用开发工具（如果没看到这个菜单栏）：
   • 点击左上角「文件」→「选项」→「自定义功能区」，在右侧勾选「开发工具」，点击确定
2. 打开VBA编辑器：
   • 点击「开发工具」选项卡，选择「Visual Basic」（或者直接按快捷键Alt+F11）
3. 插入模块并编写代码：
   • 在左侧的「工程资源管理器」里，找到你的工作簿，右键选择「插入」→「模块」
   • 在模块窗口中粘贴以下代码：

     ' 全局变量存储当前悬停的形状
     Dim currentHoverShape As Shape
     
     ' 形状悬停事件：显示自定义提示
     Sub Shape_Hover(ByVal Sh As Object, ByVal X As Single, ByVal Y As Single)
         Set currentHoverShape = Sh
         ' 根据形状名称匹配提示内容，你可以替换成自己的形状名和提示文本
         Dim tipContent As String
         Select Case Sh.Name
             Case "Shape_Beijing" ' 替换为你的形状实际名称
                 tipContent = "北京市：人口2189万 | 面积16410km²"
             Case "Shape_Shanghai"
                 tipContent = "上海市：人口2487万 | 面积6340km²"
             ' 继续添加其他形状的提示内容
         End Select
         ' 在状态栏显示提示，也可以改成弹出窗体（进阶玩法）
         Application.StatusBar = tipContent
     End Sub
     
     ' 鼠标离开形状时清空状态栏
     Sub Worksheet_MouseLeave(ByVal Target As Range, ByVal X As Single, ByVal Y As Single)
         If currentHoverShape Is Nothing Then
             Application.StatusBar = False
         End If
     End Sub
     

4. 给形状绑定宏：
   • 回到Excel工作表，选中每个需要提示的形状，右键选择「指定宏」，在列表中选择Shape_Hover，点击确定
5. 保存工作簿：
   • 记得把工作簿保存为启用宏的工作簿（.xlsm格式），否则宏会失效

额外小技巧 #

如果想要动态读取单元格里的提示内容，可以把Select Case部分改成读取单元格数据，比如：

tipContent = ThisWorkbook.Sheets("数据").Range("A1").Value ' 读取A1单元格的内容

内容的提问来源于stack exchange，提问作者Yuda Pratama