1700430040
1700430041
1700430042
1700430043
图A-9 录制新宏的对话框
1700430044
1700430045
可以直接单击确定按钮，Excel将对接下来的操作录制宏。下面进行如下的操作：
1700430046
1700430047
①选中单元格A1；
1700430048
1700430049
②设置单元格A1的填充色为某种颜色；
1700430050
1700430051
③选中某个地图图形；
1700430052
1700430053
④设置该地图图形的填充色为某种颜色。
1700430054
1700430055
然后，单击停止录制按钮，终止录制宏操作。按Alt+F11键进入VBA编辑窗口，会看到如图A-10所示的界面。
1700430056
1700430057
1700430058
1700430059
1700430060
图A-10 通过录制操作得到的宏代码
1700430061
1700430062
左侧的工程窗口中，在模块目录下有个“模块1”对象，右侧名为Macro1的宏代码就是刚才录制宏操作的结果[1]，其中有两句关键代码：
1700430063
1700430064
①Selection. Interior. ColorIndex=1（设置A1单元格填充色）：
1700430065
1700430066
②Selection. ShapeRange. Fill. ForeColor. SchemeColor=8（设置地图图形填充色）
1700430067
1700430068
我们将其组合起来，让地图图形的填充色=A1单元格的填充色，并略作修改，再加入按区域个数的循环，得到如图A-11所示的代码。这段宏完成的任务就是：对每个区域的图形使用对应的颜色号（如color1）作为名称所指向的单元格的填充色来填充，绘制出一个分档填色的热力地图。
1700430069
1700430070
1700430071
1700430072
1700430073
图A-11 修改录制的关键代码编写的宏过程
1700430074
1700430075
当然，在将录制宏修改为自己的VBA代码的过程中，还是需要一点点编程的概念的。VBA是一种面向对象的语言，还是比较容易读懂的，即使不懂，按F1键或者通过Google搜索也可以获得相应的帮助。另外，使用宏主要是为了完成一些重复性的任务，因此你需要知道一些循环结构，如for i=1 to n…next，for each…in…next等。
1700430076
1700430077
本书中的绝大部分宏过程都是采用这种先录制、后Google、再修改的方法编写出来的，基本属于依葫芦画瓢。尤其是4.1节的图表式数据地图中，将图表复制为图片，再将图片粘贴到气泡图的数据点上，这种代码估计谁也不会知道该怎么写，但录制宏可以轻松获得关键代码。
1700430078
1700430079
所以，你完全不必担心自己不会编写宏代码，录制宏和Google将帮助你搞定！
1700430080
1700430081
用地图说话：在商业分析与演示中运用Excel数据地图 [:1700427134]
1700430082
A.4 使用照相机整合地图图形
1700430083
1700430084
本书介绍的各种地图做法中，都使用了一种叫做“拍照”的技术，将各区域地图图形整合为一幅整体的地图，以便导出引用到其他应用。什么是“拍照”呢？
1700430085
1700430086
Excel有一个隐藏很深的功能，叫做照相机，一般情况下界面上并不可见，需要通过设置才能调出这个功能按钮。
1700430087
1700430088
在Excel 2003版本中，单击菜单工具→自定义→命令→工具，在右侧的命令列表中可以找到一个照相机的图标，用鼠标将它拖拽到工具栏上合适位置，释放鼠标后可以看到工具栏上出现了一个照相机图标，如图A-12左侧所示。
1700430089