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
即选择饼图或环形图时，返回刚才的拍照图例区域，否则返回一个空白区域。
1700428370
1700428371
选中刚才拍照所得的图片，在公式栏中修改其引用为：=pie_legend。再测试模型时你就会发现，选择饼图或圆环图形式，地图有图例；选择其他形式，地图无图例。这是本模型智能化的特点之二。
1700428372
1700428373
模型可生成的各种形式的数据地图效果如图4-4所示。
1700428374
1700428375
1700428376
1700428377
1700428378
1700428379
1700428380
1700428381
1700428382
1700428383
1700428384
图4-4 不同图表类型的图表式数据地图
1700428385
1700428386
本做法的基本要点与气泡式数据地图类似，涉及的新增关键知识点有两点：将图表复制为图片，向图表的数据序列粘贴图片。
1700428387
1700428388
一次偶然的灵光乍现，我突然想到了这个做法思路，赶紧动手尝试是否可行，结果居然成功了！自己也几乎拍案叫绝。有了这个做法，我才终于感到本书需要介绍的地图做法圆满了，因为本做法相当完美地仿制了专业地图软件最主要的功能。
1700428389