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
1700430090
1700430091
1700430092
1700430093
图A-12 从Excel 2003和Excel 2010中调出照相机功能
1700430094
1700430095
在Excel 2007以上版本中，在菜单文件→Excel选项→快速访问工具栏，将左侧的命令列表过滤为“不在功能区的命令”，找到“照相机”（如图A-12的右图所示），添加到右侧的快速访问工具栏列表，确认后在Excel的顶部即可看到一个照相机按钮。
1700430096
1700430097
照相机命令用来对一个单元格区域进行“拍照”，拍照后可以生成一个与源单元格区域一致并且同步联动的图片。该图片将包含源区域内的所有对象，源区域内的任何改变也可以立即反映在该图片中。因此我们利用此功能来将各区域独立的地图图形拍照整合为一幅整体的地图。
1700430098
1700430099
以3.1节的分档填色做法为例，各省独立的地图图形放置在U11:AB32区域，选中此区域，用鼠标单击工具栏上的照相机图标，鼠标会变成一个十字，在另外的空白区域如单元格L11处单击一下，即可生成一个拍照图片。该图片与U11:AB32区域的显示一模一样，但已经是一个组合的图形对象，非常便于复制导出。此后，如果我们修改了C列的数据，刷新地图，此拍照图片也会自动刷新。
1700430100
1700430101
不过，这种同步联动仅限于Excel文件之内或之间，如果将拍照图片复制到PPT文件，PPT中的图片是不会同步更新的。
1700430102
1700430103
用地图说话：在商业分析与演示中运用Excel数据地图 [:1700427135]
1700430104
A.5 使用散点图标签修改工具
1700430105
1700430106
在3.5节、4.2节等章节中，都运用到了标签修改工具XY Chart Labeler。这是Excel高级作图的常用工具，这里做简单介绍。
1700430107
1700430108
在Excel中创建散点图和气泡图时，若要显示数据标签，无论你如何设置，都无法让其显示为数据点的名称，例如图3-12中的C列省份名称。这个问题是Excel的缺陷，也促使了标签修改工具XY Chart Labeler的产生。
1700430109