1700429060
在这段宏代码中，先调用API函数GetCursorPos获取鼠标当前所在的位置坐标，然后利用RangeFromPoint函数获取这个坐标位置上的对象。当这个对象是地图图形时，将其名称记录于A1单元格，也就是用户当前选择的区域名。同时，要将该区域图形填充为表示已选中的亮色，并将之前选中的图形还原为表示未选中的淡色。这就是鼠标移动版地图选择器的功能。
1700429061
1700429062
与5.4节的模型相同，A1是动态模型的输入参数，作为图表数据源的辅助区域将自动刷新为与A1中区域名称对应的数据。
1700429063
1700429064
3．提供启用移动选择器的选项。
1700429065
1700429066
绘制一个启用鼠标移过切换区域的复选框，链接到单元格A2，并为其编写如图5-15所示的宏，即当用户选择复选框时，根据其选择结果，决定调用还是终止移动选择器。
1700429067
1700429068
1700429069
1700429070
1700429071
图5-15 启用或者停用选择器的宏
1700429072
1700429073
4．测试模型。
1700429074
1700429075
现在，勾选启用鼠标移过切换区域复选框，当鼠标在地图上移动时，地图会突出显示当前悬停的区域，右侧的图表也会随之发生变化，显示为当前鼠标所悬停区域的数据。检查并确认数据正确。
1700429076
1700429077
这种操作非常轻灵，完美模仿了国外网站上的操作体验，模型效果也体现出一种数据的灵动之美。若取消勾选启用鼠标移过切换区域复选框，此功能消失。
1700429078
1700429079
此功能可单独作为选择器，也可与5.4节的鼠标点击版整合在一起，使用户在取消勾选启用鼠标移过切换区域复选框后，仍可使用单击方式来切换区域。
1700429080
1700429081
本做法所涉及的新增知识点，主要是API函数GetCursorPos和RangeFromPoint的结合运用，其他与5.4节类似。
1700429082
1700429083
懒人直接用
1700429084
1700429085
在随书范例包中找到并打开“5.5基于地图选择的动态图表（鼠标移动版）.xls（或.xlsm）文件，启用宏。
1700429086
1700429087
●在data1工作表输入数据。
1700429088
1700429089
●在dashboard工作表中勾选启用鼠标移过切换区域复选框，即可通过鼠标在地图上移动来切换区域，分析数据。
1700429090
1700429091
1700429092
轻松一刻
1700429093
1700429094
一位地理学家，用世界各大洲来比喻女人一生的各个阶段。他说：
1700429095
1700429096
“13岁到18岁的女人好像非洲一般，是一块处女地带，尚未经过探索；
1700429097
1700429098
“18岁到30岁，像亚洲——热情而富有异国情调；
1700429099
1700429100
“30岁到40岁，像美洲——已完全被勘察，而且资源丰富；
1700429101
1700429102
“40岁到55岁，像欧洲——已消耗殆尽，但仍是有趣的；
1700429103
1700429104
“55岁之后，像澳洲——每一个人都知道它孤零零地躺在太平洋中，但没有人去关心照顾它。”
1700429105
1700429106
[1]默认情况下并不可见，需要先调出开发工具选项卡。参见附录A.3相关内容。
1700429107
1700429108
[2] http://club.excelhome.net/viewthread.php?tid=546023，8楼
1700429109