1700428310
1700428311
1700428312
图4-2 修改小图表类型的宏
1700428313
1700428314
将这段宏代码赋给前面第2步时制作的列表框。这样用户通过列表框选择图表类型时，将触发此宏代码，改变小图表的图表类型。
1700428315
1700428316
5．格式化小图表。
1700428317
1700428318
在自动切换图表类型之后，默认格式的小图表可能不是我们最后想要的效果。这里可以需要根据个人喜好和具体情况进行一些格式化。
1700428319
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．为饼图形式的地图增加图例。