1700429542
1700429543
1．制作Excel中的动态图表模型。
1700429544
1700429545
这个已经比较容易，可参见5.4节的相关内容。我们可以使用数据有效性和VLOOKUP函数构造一个简单的动态图表模型。如图7-6所示，单元格A2的数据有效性引用为A5:A36，B2:M2使用VLOOKUP函数，根据A2的值，从A5:N36区域查找并返回对应的数据。图表以A2:M2为数据源，若A2变化，则A2:M2也变化，图表就相应变化。
1700429546
1700429547
1700429548
1700429549
1700429550
图7-6 为嵌入PPT准备的Excel动态图表模型
1700429551
1700429552
本例中考虑到会有多个动态图表，data1、data2等的单元格A2均引用dashboard单元格A1的值，而dashboard的单元格A1的值将由用户的选择来填充值。
1700429553
1700429554
建议将这些图表放在单独的dashboard工作表中，避免后续更新数据时影响PPT中的显示。本例中将图表锚定在dashboard工作表的B5:H24区域。为避免PPT中打开时出现宏提示，这个Excel文件中不要包含宏。
1700429555
1700429556
2．将Excel文件嵌入PPT。
1700429557
1700429558
在完成的Excel动态图表模型文件中，复制包含图表对象的单元格区域B5:H24，转到PowerPoint中，插入一个空白页，单击菜单编辑→选择性粘贴→工作表对象，就将该Excel文件“嵌入”到PPT中了，并显示为所复制单元格区域的内容。将其置于PPT页面右侧。
1700429559
1700429560
注意Excel文件嵌入后，PPT中的显示将与原文件再无关系，一切修改都要在嵌入文件中进行。因此，嵌入前应考虑充分，尽量把Excel文件做完善，避免后续修改麻烦。
1700429561
1700429562
3．修改嵌入对象的名称。
1700429563
1700429564
由于后面我们要引用并操作这个嵌入对象，因此需要先知道它的名称。按前述方法嵌入PPT的对象，根据软件版本或页面对象的不同，其名称可能为“Object 4”或“对象44”等不确定的名称。我们需要将其修改为确定的、有意义的名称，便于后续引用。可以通过图7-7所示的宏代码来修改。
1700429565
1700429566
1700429567
1700429568
1700429569
图7-7 修改PPT中对象名称的宏
1700429570
1700429571
操作方法是：①先选中嵌入的图表对象；②按Alt+F11键进入VBA编辑窗口，插入一个模块，输入图7-7所示代码；③运行该代码，在弹出对话框中输入“MyExcelChart”，这样就指定了该嵌入对象的名称。
1700429572
1700429573
如果不使用宏，我发现还有一个简单有趣的方法可以修改该嵌入对象的名称：
1700429574
1700429575
在PPT中复制该嵌入对象，打开一个新的Excel文件，按Ctrl+V键粘贴，这时该嵌入对象被复制到新Excel文件中。选中该嵌入对象，在Excel左上角的名称框中将其名称修改为“MyExcelChart”，然后再将该嵌入对象复制粘贴回PPT中，则这个名称也被带回到PPT中了！
1700429576
1700429577
4．插入地图图形。
1700429578
1700429579
将准备好的地图图形复制到PPT中，置于页面左侧。复制前，请先确认已在Excel中对地图图形用数据表中的地名进行命名，因为在PPT中我们也要利用到这些图形的名称。复制粘贴后，Excel中的命名在PPT中仍然有效。
1700429580
1700429581
5．编写地图选择器的宏过程。
1700429582
1700429583
在放映PPT时，若用户点击某省的图形，我们要通过宏在后台悄悄打开嵌入的Excel文件，把该省名称填写到dashboard工作表中的A1单元格，而这将触发动态图表模型自动切换图表的数据。
1700429584
1700429585
通过菜单视图→工具栏→控件工具箱[4]，在PPT中绘制一个按钮对象。这时再按Alt+F11键进入PowerPoint的VBA编辑窗口，左侧会出现名为Slide1（或Slide2等）的对象[5]。双击该对象，右侧出现代码窗口，我们将在这里输入每个省图形被单击后要调用的宏代码。
1700429586
1700429587
为每个省编写的宏过程其实非常简单，例如图7-8所示为“北京_Click”代码。
1700429588
1700429589
1700429590
1700429591