1700428170
后一部分做法与分档填色数据地图模型类似，K列为一组渐变的图例颜色，命名为color1～10；N列为分档阈值；I列根据G列数值大小，从N7: O16区域查找返回相应的颜色号，查找公式为：
1700428171
1700428172
I6 ：=VLOOKUP(G6,$N$7:$O$16,2,1)
1700428173
1700428174
注意最后一个参数值为“1”，表示模糊查找，即返回小于查找值的最大数所在行的对应值。
1700428175
1700428176
2．生成气泡数据地图。
1700428177
1700428178
这一步与3.4节气泡式数据地图完全一样，请查阅该节相应内容。
1700428179
1700428180
3．使用宏填充气泡的颜色。
1700428181
1700428182
现在我们要根据各省I列的颜色号，对气泡填充相应的颜色，这是热力气泡式数据地图的主要特征，也是本做法的关键点。
1700428183
1700428184
Excel中插入的图表，默认的名称为“图表1”或“chart 1”之类的，比较好的习惯是先为图表命名一个有意义的名称，便于后续引用。所以我们先给气泡图命个名。
1700428185
1700428186
若使用2003版本，按住Ctrl键，用鼠标选中气泡图，在Excel左上角的名称框中输入“my_map_chart”，回车，即完成了气泡图的命名。
1700428187
1700428188
若使用2007以上版本，选中气泡图→图表工具选项卡→布局→属性→图表名称，输入“my_map_chart”，回车。显然2003版本的操作更为简便。
1700428189
1700428190
我们不知道设置气泡填充色的代码该如何写，但可以对以下操作录制宏：
1700428191
1700428192
选中气泡图数据系列→再选中某个数据点→设置一种填充色→设置透明度为50％。
1700428193
1700428194
根据得到的宏代码，修改、编写如图3-15所示的宏代码。
1700428195
1700428196
1700428197
1700428198
1700428199
图3-15 设置气泡图数据点填充色的宏
1700428200
1700428201
这段宏代码将对气泡图的每个数据点，使用对应省I列的值作为名称所指向的K列对应单元格的颜色进行填充，并同时设置透明度，使之呈现半透明的效果。若使用2003版本，将不支持设置透明度，可省略此特征。
1700428202
1700428203
使用窗体控件或矩形框，绘制一个按钮，为其指定宏为fill_bubble_color。现在单击按钮，各个气泡即被自动填色，请检查所填颜色正确无误。
1700428204
1700428205
4．为地图添加图例和标签。
1700428206
1700428207
热力气泡式数据地图需要两个图例。一是代表数值大小的气泡，这与气泡式数据地图做法一样，使用往下延展的图例辅助数据。二是代表增幅大小的颜色，这与热力地图做法一样，对单元格区域K7:L16进行拍照，将拍照图片放置到地图的合适位置作为图例。
1700428208
1700428209
若需为气泡添加数值标签，可使用标签修改工具XY Chart Labeler[4]设置显示为H列。
1700428210
1700428211
最后完成的地图如图3-16所示，与例图效果几无二致。
1700428212
1700428213
1700428214
1700428215
1700428216
1700428217
1700428218
1700428219
图3-16 热力气泡式数据地图