参考：
如何将html格式动态图表网页嵌入ppt中 - 云+社区 - 腾讯云
PowerPoint 插入html格式动态图表_哔哩哔哩 (゜-゜)つロ 干杯~-bilibili
如何在ppt中插入html动态图表_sinat_40801052的博客-CSDN博客_ppt插入html
前言
前段时间，突然被问到可视化自动化报表，大概就是想让生成的可视化具有交互性，动态的，而非静态的，于是想到了以前看到过 pyecharts 嵌套到 ppt 中，按照此思路是实现了一下，还是有些可行的，但实现的过程中磕磕碰碰，遇到不少问题，在此记录下。
第一种
是基于 office 的加载项，但现在加载项中搜索不到这个插件了，应该被下架了，只能用第二种办法。
第二种
office ppt，不是 wps！！！
在 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
第二个注册表会由于安装了不同版本的Office而根据路径搜索不到，这时候就直接用COM Compatibility搜索去把对应的Compatibility Flags修改即可
以上可解决正常插入Microsoft web brower控件的问题，点击该控件之后，在页面释放并用鼠标拖动至与页面统一大小。
（控件是无色的你可能看不见，但是如同形状一样，你可以选中并且自由调整大小）
双击看不见上面拉出来的框，会弹出来 vba 界面，在 VBAProject 右键插入新模块
在弹出来的新模块中添加以下代码，需要注意的是圈起来的地方要对应，文件路径不要包含中文
Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
Slide1.WebBrowser1.Navigate ("file:///C:/Users/DELL/Desktop/test/tab_base.html")
End Sub
要想在 ppt 反映正常显示，还需要在 pyecharts 生成的 html 中添加代码，加到开头就可以了，加代码可以用 txt 打开直接加
<!DOCTYPE html>
<!DOCTYPE html PUBLIC "" ""><HTML><!-- saved from url=(0016)http://localhost --><HEAD>
<html>
<head>
<meta charset="UTF-8">
<META http-equiv="X-UA-Compatible" content="IE=Edge*">
<title>Awesome-pyecharts</title>
<script type="text/javascript" src="https://assets.pyecharts.org/assets/echarts.min.js"></script>
</head>添加好后，在 ppt 没反映时，啥也看不到，这也是缺点之一，只有放映下才可以看到，来看看效果，没放映，放映下（需要点击允许阻止运行的程序）
这样就成功了，要是想添加多张图表，建议分开多张ppt，一个 vba 模块对应一个 slide。
保存需要保存为 pptm 格式才可以。
总结
这种方法只适合用自己笔记本电脑拿去汇报，有点局限性，但自己汇报炫一炫足够了。
1.发给别人，被人需要修改注册表才可以
2.用 pptx 格式做好后，要保存 vba 代码只能保存为 pptm 格式，且保存后打开后的第一次可正常使用，关闭，再重新打开，就不显示图表了，有点不太行
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
