如何将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受限，我点允许之后框子里是空白的)，但是可以嵌入百度啥的联网的。请问这个问题怎么解决？