EXCLE 制作热力地图、插值图

效果图如上，点击“填色按钮”即可按照设置好的颜色进行填充；

操作步骤如下：

1、先找一张自己需要制作热力网格的地图，svg格式；

2、用Inkscape工具转换成emf格式；

3、打开excel导入刚刚准备好的emf文件（插入图片）；

4、给各个省份命名，需和“地方”列的名称保持一致；

5、给数据进行分界并拟定颜色，如下图：

需要对M列的色阶网格命名为对应Q列的名字，如：color1；

N列是对色阶的说明，P列要设置成对应N列的下限值；

6、给各个区域命名：

RegData == Sheet1!C2:D35--------数据区域；

ActReg ==  Sheet1!R6  --------------临时存放省份名称；

ActRegValue == Sheet1!R7 --------存放对应省份的GDP数据，公式=VLOOKUP(ActReg,RegData,2,FALSE)；

ActRegCode == Sheet1!R8 ---------存放颜色类型，公式 =VLOOKUP(ActRegValue,P30:Q35,2,TRUE)；

7、新增一个按钮控件，命名为“填色按钮”，写入如下代码：

    For i = 2 To 35
        Range("ActReg").Value = Range("Sheet1!C" & i).Value
        ActiveSheet.Shapes(Range("ActReg").Value).Select
        Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("ActRegCode").Value).Interior.Color
    Next i

到此任务完成，点击“填色按钮”即可根据设置好的色阶设置对应省份的图片颜色，一个设计好的热力地图完成；

样例请到以下网盘下载，拿走不谢！

https://pan.baidu.com/s/1XvRTwxlMd14wYaeg4hAaBw