1700427970
1700427971
F～G列是为制作图例而准备的数据区域。其中G11、G20使用函数获取原数据区域的最大值和最小值，也可根据需要直接输入指定的值，以控制想要的颜色。G12:G19使用公式计算出10等分阈值，如：
1700427972
1700427973
G12: =($G$20-$G$11)/9+G11
1700427974
1700427975
G12:G19使用自定义数字格式“;;;”隐藏了数值的显示。F列直接引用G列的数据，同样使用自定义数字格式隐藏了数值的显示。
1700427976
1700427977
2．对数据源设置色阶条件格式。
1700427978
1700427979
选中D11:D63的源数据区域，并按住Ctrl键同时选中F11:F20的图例区域，单击菜单开始→条件格式→色阶，选择相应的色阶样式（如图3-6所示），即可在选中区域中产生HeatMap的填色效果。
1700427980
1700427981
1700427982
1700427983
1700427984
图3-6 设置条件格式色阶
1700427985
1700427986
对色阶的样式，可以在菜单条件格式→管理规则中作进一步的自定义设置，如最小值、中间值、最大值及其相应的填充色，如图3-7所示。条件格式预览的效果就将是地图图形的最终填色效果。
1700427987
1700427988
1700427989
1700427990
1700427991
图3-7 条件格式色阶可以自定义颜色
1700427992
1700427993
3．将条件格式复制为单元格格式。
1700427994
1700427995
要将条件格式生成的填充效果复制到地图图形上，首先要知道其填充色是什么。但经过反复测试，我还是没有找到获取色阶条件格式所生成的单元格填充色代码的方法，所以只好采用手工的方法。
1700427996
1700427997
我们先要将源数据D11:D63的条件格式填充色效果，复制到I列的相应位置，成为VBA可以读取的静态格式。这也是个难点，要将条件格式产生的填充效果复制为静态的单元格格式，直接复制粘贴或选择性粘贴都无法实现，需要使用一种特殊的操作方法，如图3-8所示。
1700427998
1700427999
1700428000
1700428001
1700428002
图3-8 利用剪贴板窗格将条件格式粘贴为静态格式
1700428003
1700428004
①选中D11:D63区域，按Ctrl+C键复制。
1700428005
1700428006
②将鼠标定位到需要粘贴到的目标区域的第一个单元格，这里是I11。
1700428007
1700428008
③单击“剪贴板”功能组右下角的箭头，打开“剪贴板”任务窗格。
1700428009
1700428010
④选择最上面的刚才复制的项目右侧的下拉框，单击“粘贴”。
1700428011
1700428012
这时复制完成，I列显示的内容和格式与D列完全一样，但动态的条件格式已经被转换为静态的单元格格式，后面我们通过VBA可以读出其填充色代码。
1700428013
1700428014
一个奇怪的事情是，录制以上操作所产生的宏，却无法正确运行，导致不能采用宏自动化，不知是何原因。这个问题欢迎读者来信指教。
1700428015
1700428016
关于这一步，也可以采用另外一种借道Word的变通方法来实现：
1700428017
1700428018
①选中D11:D63区域，按Ctrl+C键复制。
1700428019