看了之前推送的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
注：PowerPoint 2013 更改了以下注册表
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}，更改十六进制400为0即可。
如果没有这个位置，可以选择HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\ClickToRun\REGISTRY\MACHINE\Software\Wow6432Node\Microsoft\Office\15.0\Common\COM Compatibility\<ClassID> </ClassID>,如上。
以上可解决正常插入Microsoft web brower控件的问题，点击该控件之后，在页面释放并用鼠标拖动至与页面统一大小。
（控件是无色的你可能看不见，但是如同形状一样，你可以选中并且自由调整大小）
三、在该页面插入一个command命令控件（activeX控件），并在页面释放，调整大小。右键打开属性列表，在caption栏修改控件名称。
四、双击控件打开代码页面，在默认的两行代码中间插入如下代码：
注：如果 加载html时 提示 安全警告： 为帮助保护你的安全 你的web浏览器已经限制此文件显示可能 访问你的计算机，需要在
<!DOCTYPE html>的下一行添加：
<!-- saved from url=(0021)http://www.baidu.com/ -->
注：将echarts图表的html代码中加载 <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE*"/>代码（*处至少为9或以上），将HTML设置成IE的内核。
注：解决 echarts 的console 未定义问题，在<Head>中的注释下面 ，加入如下程序：
window.console = window.console || (function(){
var c = {};
c.log = c.warn = c.debug = c.info = c.error = c.time = c.dir = c.profile = c.clear = c.exception = c.trace = c.assert = function(){};
return c;
})();
WebBrowser1.Navigate ("file:///D:/R/Rscript/ID_20161002180535_403937.html")
这里需要你自定义只是括号内的html文件路径，我的html是之前在演示REmap动态地图的时候制作一个动态路径图。
这个路径可以是本地html文件，也可以是其他有效的html网页地址。
完成以上步骤之后，在幻灯片放映状态，定位到有设置控件的那一页，用鼠标点击按钮，就可以查看动态网页效果。
五、最后一步，也是非常重要的一步，如果想要动态效果不丢失，再保存ppt文档的时候一定不能使用默认保存选项，要另存为.pptm格式的宏文件，这样才能不丢失VBA代码。
以上过程同样适用将其他有效网页地址，嵌入ppt中的，感兴趣的小伙伴可以自行尝试。
6665
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
