如何将html格式动态图表网页嵌入ppt中
看了之前推送的REmap相关内容，结果导出的图表是html格式的动态图，不知道如何将此种格式的图表放在ppt中使用。
这确实很尴尬他呀，你不能直接拿着Rstudio跟客户演示呀（而且还不保证每一台PC上都安装有R语言软件），如果是ppt展示，突然退出来，然后用浏览器打开html文件也是够突兀的。
当然这个情况在r语言中其实很普遍，很多依赖底层js语言编写的二次开发包（比如R语言中的recharts、RERmap、Rchart、plotly等），可能都只提供html格式的导出效果（如果导出成静态图片的话，那么基本就不用指望什么动态效果了）。
ppt默认是不支持html文件的，但是依赖开发工具的外界差价和少量VBA代码，解决这个问题并非什么难事。
以下是解决思路（适合ppt2013及16版本，低版本大同小异）
一、首先保证你的ppt已经勾选并显示开发工具选项（未勾选请在文件设置中打勾，本号历史文章列表中有相关介绍）
image
二、在开发工具——其他控件列表中选择Microsoft web brower。（如果提示控件无法插入请参照如下方案执行）
image
image
需修改两处注册表键值：
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栏修改控件名称。
image
image
四、双击控件打开代码页面，在默认的两行代码中间插入如下代码：
WebBrowser1.Navigate ("file:///D:/R/Rscript/ID_20161002180535_403937.html")
image
这里需要你自定义只是括号内的html文件路径，我的html是之前在演示REmap动态地图的时候制作一个动态路径图。
这个路径可以是本地html文件，也可以是其他有效的html网页地址。
完成以上步骤之后，在幻灯片放映状态，定位到有设置控件的那一页，用鼠标点击按钮，就可以查看动态网页效果。
image
五、最后一步，也是非常重要的一步，如果想要动态效果不丢失，再保存ppt文档的时候一定不能使用默认保存选项，要另存为.pptm格式的宏文件，这样才能不丢失VBA代码。
image
以上过程同样适用将其他有效网页地址，嵌入ppt中的，感兴趣的小伙伴可以自行尝试。
原文发布于微信公众号 - 数据小魔方（datamofang）
原文发表时间：2017-01-02
本文参与腾讯云自媒体分享计划，欢迎正在阅读的你也加入，一起分享。
用户2147608：导入本地html失败（显示activeX受限，我点允许之后框子里是空白的），但是可以嵌入百度啥的联网的。请问这个问题怎么解决？
网友评论