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
1700429592
图7-8 记录用户选择省名的宏过程
1700429593
1700429594
为所有省的图形一一编写宏过程。这个过程仅需复制、粘贴、替换就可以了。
1700429595
1700429596
6．为地图图形指定宏调用。
1700429597
1700429598
现在要把上述宏代码指定给各省对应的图形。指定宏调用的同时，我们顺便设置鼠标单击和鼠标移过时的突出显示效果，以提供更好的操作体验。请参见7.2节的相关内容。
1700429599
1700429600
选中某省的图形，以湖北为例，单击鼠标右键→设置动作，在出现的对话框中进行以下设置：①在选项卡单击鼠标→单击鼠标时的动作，选择运行宏，指定宏名为slide1.湖北_Click；②勾选单击时突出显示复选框；③在鼠标移过选项卡中勾选鼠标移过时突出显示复选框。
1700429601
1700429602
按此方法逐一为其他省的图形做相应设置。
1700429603
1700429604
不过，我们可以通过对以上操作录制宏获得代码，修改、编写如图7-9所示的宏代码，一次性批量完成指定宏的任务，省去烦琐的设置。
1700429605
1700429606
1700429607