EXCLE 制作热力地图、插值图

秒速五厘米 2023-06-17 15:55 12阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg_size_16_color_FFFFFF_t_70][]

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

操作步骤如下：

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

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

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

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg_size_16_color_FFFFFF_t_70 1][]

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

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

![2019112916593951.png][]

需要对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][https_pan.baidu.com_s_1XvRTwxlMd14wYaeg4hAaBw]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20191129163826181.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg==,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/2019112916511010.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N1bmtlemhlbg==,size_16,color_FFFFFF,t_70
[2019112916593951.png]: https://img-blog.csdnimg.cn/2019112916593951.png
[https_pan.baidu.com_s_1XvRTwxlMd14wYaeg4hAaBw]: https://pan.baidu.com/s/1XvRTwxlMd14wYaeg4hAaBw