如何将html格式动态图表网页嵌入ppt中

前几天魔方学院（其实就是我的公众号交流群啦~_~）的一位群友突然在群里提了一个问题！

看了之前推送的REmap相关内容，结果导出的图表是html格式的动态图，不知道如何将此种格式的图表放在ppt中使用。

这确实很尴尬他呀，你不能直接拿着Rstudio跟客户演示呀（而且还不保证每一台PC上都安装有R语言软件），如果是ppt展示，突然退出来，然后用浏览器打开html文件也是够突兀的。

当然这个情况在r语言中其实很普遍，很多依赖底层js语言编写的二次开发包（比如R语言中的recharts、RERmap、Rchart、plotly等），可能都只提供html格式的导出效果（如果导出成静态图片的话，那么基本就不用指望什么动态效果了）。

ppt默认是不支持html文件的，但是依赖开发工具的外界差价和少量VBA代码，解决这个问题并非什么难事。

以下是解决思路（适合ppt2013及16版本，低版本大同小异）

一、首先保证你的ppt已经勾选并显示开发工具选项（未勾选请在文件设置中打勾，本号历史文章列表中有相关介绍）

二、在开发工具——其他控件列表中选择Microsoft web brower。（如果提示控件无法插入请参照如下方案执行）

需修改两处注册表键值：

1、打开注册表编辑器（在运行中输入REGEDIT并执行）

2、定位到：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}将右侧 Compatibility Flags值21修改为0

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\Microsoft\Office\16.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}

将右侧 Compatibility Flags值400修改为0

以上可解决正常插入Microsoft web brower控件的问题，点击该控件之后，在页面释放并用鼠标拖动至与页面统一大小。

（控件是无色的你可能看不见，但是如同形状一样，你可以选中并且自由调整大小）

三、在该页面插入一个command命令控件（activeX控件），并在页面释放，调整大小。右键打开属性列表，在caption栏修改控件名称。

四、双击控件打开代码页面，在默认的两行代码中间插入如下代码：

WebBrowser1.Navigate ("file:///D:/R/Rscript/ID_20161002180535_403937.html")

这里需要你自定义只是括号内的html文件路径，我的html是之前在演示REmap动态地图的时候制作一个动态路径图。

这个路径可以是本地html文件，也可以是其他有效的html网页地址。

完成以上步骤之后，在幻灯片放映状态，定位到有设置控件的那一页，用鼠标点击按钮，就可以查看动态网页效果。

五、最后一步，也是非常重要的一步，如果想要动态效果不丢失，再保存ppt文档的时候一定不能使用默认保存选项，要另存为.pptm格式的宏文件，这样才能不丢失VBA代码。

以上过程同样适用将其他有效网页地址，嵌入ppt中的，感兴趣的小伙伴可以自行尝试。