我常说要实现数据化管理：不仅要数据思维，而且要有业务思维。先有分析思路，再借助工具进行数据处理，然后实现数据可视化。而我一直建议的工具就是Excel。
很多人也许也觉得自己熟练掌握了Excel，其实这是一门越学习越高深的软件，你没见过的数据处理、图表演示方法在你的实际工作中，可能会颠覆你的同事、老板对你的认识。
（此处请大家脑补下开会时的场景：你在演示动态图表做报告，同事惊呆了觉得鸭梨山大；老板频频点头，口中似念念有词“嗯，不错，该升职加薪了~！”）
经常有同学会问我：能不能把Excel的动态图表放在PPT里进行演示？！
其实我也被这个问题困扰很久，也试过翻遍了整个百度都没找到答案……
最后机缘巧合，有幸学习到刘万祥老师的解决方案（不愧是Excel图表界的大神！膜拜！）。
为助力大家在演示PPT的时候，惊呆同事，征服老板，现特把此神技献上（文末赠送用到的VBA代码，请自取~）：
一、在PPT里演示动态图表
这种做法的思路是，先在Excel里做好动态图表模型，然后将这个Excel文件“嵌入”到PPT里。再在PPT里添加一个下拉框，通过VBA宏来操作下拉框和嵌入的Excel，来实现图表的动态切换。完成后的效果是这样的。
制作步骤(过程牵涉到的VBA代码，文末福利贴出来给大家，方便大家复制)
1、制作Excel里的动态图表模型。
这个是常规做法，这里就不讲解。用户的选择结果记录在dashboard工作表的A1单元格，这是动态图表的驱动引擎。
2、将包含动态图表的Excel文件嵌入到PPT。
复制Excel文件里放置图表的单元格区域（注意是图表后面的单元格区域，不是图表本身），在PPT里新开一页，选择性粘贴-工作表对象，这样，就把那个Excel文件“嵌入”到这个PPT里了。
3、在PPT里插入下拉框对象。
在PPT里，开发工具-控件，插入一个下拉框（学名叫组合框）。如果你的PPT没有开发工具，请先在文件-选项-自定义功能区里调出来。
但这个下拉框，PPT并没有提供地方让你指定下拉选择项和保存选择结果的位置，怎么办？这里是难点了，接下来我们需要使用宏代码从Excel里读出选择项列表，赋给下拉框。
4、给下拉框添加选择项。
这个需要使用宏代码来添加。并且，宏代码需要放在下拉框的Got_Focus（获得焦点）事件里，因为每次关掉PPT后它都会消失，需要重新赋值。
在PPT里按下Alt+F11键来到VBE窗口，这个和Excel里是一样的。左侧选中slide1或slide2这样的对象（前面有个PPT的小图标），在右侧代码区输入如下的代码：
这段代码所做的事情，就是在每次PPT放映、下拉框被选择的时候，就去打开那个嵌入在PPT里的Excel文件，读取其中dashboard工作表的A5:A17范围，把这些选择项赋给下拉框。
小白需要注意，以上代码并非直接复制到你的PPT就可以使用，需要修改对象名称匹配才行，比如ComboBox1、Shapes(1)等。
5、写下拉框被选择后的动作。
在上一过程的下面，继续写用户选择下拉框后的动作。
当用户下拉选择时，组合框的change事件就会被触发，执行这段代码，将下拉框的选择结果填写到嵌入的Excel文件的dashboard工作表的A1单元格，驱动模型动态切换图表。
6、写退出PPT放映时的动作。
如果PPT翻页或者退出放映了，就关闭那个嵌入的Excel文件。
7、放映PPT测试动态图表。
现在，激动人心的时刻就要来到了！放映PPT，鼠标点击下拉框，可能会看到赋值的一下闪动，这时下拉框可能只有1行，再点一下下拉框，就可以完全展开了（这应该是个小bug）。选择某个选择项，右侧的图表就应该动态切换。
首次选择时可能有点慢，因为在打开那个嵌入的Excel文件，后面再选择就完全正常秒级响应了。成功。
8、保存PPT文件。
保存文件时会提示含有宏，选择保存为后缀名为.pptm带宏格式的文件。下次打开时会有宏提示，选择启用宏即可。
9、以后的数据更新。
Excel嵌入PPT里后，那个单独的Excel文件就不需要了，所以你应该确认在Excel模型做完善了之后再嵌入。以后需要更新数据时，应该更新PPT里的嵌入对象。不要直接双击打开，这样窗口太小，不方便操作。要在嵌入对象上右键-工作表对象-打开，这样会打开一个大的Excel窗口供你编辑，方便得多。
觉得怎么样？是不是超级高超！~~这个动态图表+PPT的技术是刘万祥老师独创的。
动态图表还有很多的精髓，想掌握就要系统地进行学习，跟随行业大神就能玩转它！
这次我和刘万祥老师联合推广这门课程给大家--
二、课程讲师
刘万祥
我们先来看看刘万祥老师是怎么玩动态图表的：
是不是觉得很腻害呀？！当然我也有做过很多仪表板，哈哈，就像以下这张：
其实两张图都是图表的整合，可谓异曲同工。在仪表板中，囊括了经营数据、关键指标、目标完成进度、多指标分析等内容，直观生动，一目了然。仪表板用在销售管理、电商营运管理等方面，是非常好的数据化管理工具。
三、学员评价
群众的眼睛是雪亮的，不会有无缘无故的爱！你懂的。
四、课程大纲
本课程介绍Excel传统动态图表做法，囊括了各种使用控件的动态图表做法，大量原创、独创的高阶做法和精妙技巧，也介绍了少量使用切片器、宏代码的动态图表做法，堪称Excel动态图表的技术与应用大全。
最后介绍了一个综合性的动态仪表板模型的实现，甚至介绍了如何在PPT里动态演示。
章节1：开始之前
五、学习形式&费用
2、视频讲解，总计时长超过8小时
3、范例下载，提供配套的数据源文件，方便学员边看边实操
4、社群交流，方便学员间在群里深度交流知识，也可以向刘老师直接咨询疑难点
5、一次购买，永久有效，不限播放次数
那么，问题来了，惊呆同事，征服老板的动态图表课程怎么收费？
现优惠价只要288元！原价是360元（现限时促销，9月22日过后将恢复原价）
9月22日是活动的最后一天，平台做限时促销，购买更多的课程将有更多优惠：
单课8折+组合75折+用优惠券+每满500元赠书+下单即送PPT模板+留言好评送精品特刊资料
六、适用人群&报名方式
如果你不会做动态图表，本课程将刷新你对图表的认识；
如果你会做动态图表，本课程将是你深度学习的最佳指引；
适用人群：数据分析师、Excel的表哥|表妹，营运管理人员，商品分析、销售分析人员，还有想深度学习Excel的在读学生……
平台上大量的课程都在做促销，学生们都开学了，你还不赶紧开始屯课？！
记得优惠活动截止日期是9月22日喔，机会来时，不要犹豫呀！
福利：以下为在PPT中演示动态图表的VBA代码
DimWbAsObject,ShAsObject,ListRngAsObject
PrivateSubComboBox1_GotFocus()
SetWb=Me.Shapes(1).OLEFormat.Object
SetSh=Wb.worksheets("dashboard")
SetListRng=Sh.Range("A5:A17")
IfComboBox1.ListCount=0Then'首次时添加项目
WithComboBox1
Fori=1ToListRng.Count
.AddItemListRng.Cells(i)
Nexti
EndWith
ComboBox1.ListRows=ListRng.Count'使下拉时能显示全部选项