VBA案例5：自动生成地图
做一个地图显示分析数据的图表：如下，筛选不同的指标，地图自动变动。
作图步骤：
1、找中国地图的矢量图，放在excel上，矢量图是可以对每个省份进行单独编辑的。
2、对各个省份的图形进行重新命名，比如：新疆，在命名框中重新命名xinjiang，重新命名的图片名称需要保存下来，以便填充颜色时自动能找到。
3、列出作图数据源，含省份、省份对应的图片名称、图表数据。比如本案例中的B5：D38列。
4、设置颜色图例、图例填充范围及名称
5、设置公式
从上到下依次写出。
其中1-3为选中图片对应的数据源，如对应的省份、占比数据、颜色图例
1）actreg，代表当前选中单元格对应的省份名称
2）actregcode，代表当前选中单元格对应的填充颜色比例
3）actregvalue，代表当前选中单元格对应的数据，即占比
4-9为存储填充颜色的单元格
4）color0
5）color1
6）color2
7）color3
8）color4
9）color5
10）regdata，地图的数据区域。
6、vba程序
主程序，含控制地图的下拉框，以及控制显示省份名称的命令
下图为下拉框中的程序内容