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
1700428020
②新建一个Word文件，按Ctrl+V键粘贴。
1700428021
1700428022
③然后再从Word中复制回来，粘贴到I11:I63区域。
1700428023
1700428024
这样也可以实现将条件格式转换为静态单元格格式的目的。并且这个过程可以使用VBA自动化，如图3-9所示。在范例文件中，我们已将此宏赋给一个按钮复制，故此步骤只需单击该按钮即可。
1700428025
1700428026
1700428027
1700428028
1700428029
图3-9 通过Word获得条件格式所产生的颜色
1700428030