1700428320
6．准备气泡式地图图表。
1700428321
1700428322
与3.4节气泡式数据地图的做法一样，用K～M列的x、y、z数据绘制一个气泡图，绘图区填充一个地图图片。具体可参见3.4节的步骤讲解。
1700428323
1700428324
将气泡图对齐到单元格U7:AC34，命名为my_map，以供后续引用。命名方法如前所述。
1700428325
1700428326
注意气泡图的设置选项中有个“缩放气泡大小为”参数，默认值为100％。这个比例可以用来调整地图上气泡的显示大小，从而也决定了贴入图表的大小，可根据需求调整。
1700428327
1700428328
7．编写往地图上复制图表的宏。
1700428329
1700428330
现在要做的就是把小图表复制粘贴到气泡图的数据点上，我们使用宏来批量完成。
1700428331
1700428332
打开宏录制器，对如下操作录制宏：
1700428333
1700428334
选中小图表→复制为图片[1]→选中气泡图序列→选中北京的数据点→按Ctrl+V键粘贴。
1700428335
1700428336
停止录制宏，根据得到的宏代码，获取关键代码，修改、编写出如图4-3所示的宏代码。
1700428337
1700428338
1700428339
1700428340
1700428341
图4-3 复制粘贴小图表的宏代码
1700428342
1700428343
这段宏按省份个数进行循环，首先设置小图表的数据源为当前省的数据，然后将更新后的图表复制为图片，最后将此图片粘贴到气泡图的对应数据点上。
1700428344
1700428345
用窗体控件或矩形框绘制一个按钮，输入文字“绘制地图上的图表”，再利用右键菜单指定宏为copy_paste_minichart。
1700428346
1700428347
8．测试模型。
1700428348
1700428349
现在，通过列表框选择图表类型，你会发现小图表相应切换图表类型。单击绘制地图上的图表按钮，小图表被更新数据后复制到了相应的数据点上！
1700428350
1700428351
为方便起见，范例中在图表类型选择框的宏代码change_minichart_type的末尾加入对copy_paster_minichart的调用：
1700428352
1700428353
Call copy_paster_minichart ‘方便起见，一起调用
1700428354
1700428355
让程序同时调用粘贴小图表的宏，一次性做完“绘制地图上的图表”的步骤。这样，后一个按钮可以省略，也可以作为微调小图表格式后刷新地图之用。
1700428356
1700428357
最后，将地图所在的U7:AC34区域拍照为一个图片，便于引用到Word或PPT中。至此，一个图表式数据地图生成模板已经完成。
1700428358
1700428359
9．为饼图形式的地图增加图例。
1700428360
1700428361
当选择饼图或圆环图类型时，可能需要在地图上显示图例，其他图表类型则不需要图例。可以利用一个小技巧让模型具备这个功能。
1700428362
1700428363
将饼图形式的小图表复制一份，调整格式至图例大小合适，并让其图例对准到单元格区域S26:S29，然后将该此区域拍照，得到一个拍照图片，放置到地图的左下方空白处，作为图表的图例。
1700428364
1700428365
定义一个动态名称：
1700428366
1700428367
pie_legend：=IF(or($O$6=4, $O$6=5),$S$26:$S$29,R32)
1700428368
1700428369
即选择饼图或环形图时，返回刚才的拍照图例区域，否则返回一个空白区域。