pyecharts 插入到 ppt

参考：

如何把pyecharts的炫酷延续到PPT里！？

如何将html格式动态图表网页嵌入ppt中 - 云+社区 - 腾讯云

​​​​​​PowerPoint 插入html格式动态图表_哔哩哔哩 (゜-゜)つロ 干杯~-bilibili

如何在ppt中插入html动态图表_sinat_40801052的博客-CSDN博客_ppt插入html

前言

前段时间，突然被问到可视化自动化报表，大概就是想让生成的可视化具有交互性，动态的，而非静态的，于是想到了以前看到过 pyecharts 嵌套到 ppt 中，按照此思路是实现了一下，还是有些可行的，但实现的过程中磕磕碰碰，遇到不少问题，在此记录下。

第一种

如何把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 打开直接加

 添加好后，在 ppt 没反映时，啥也看不到，这也是缺点之一，只有放映下才可以看到，来看看效果，没放映，放映下（需要点击允许阻止运行的程序）

 

 这样就成功了，要是想添加多张图表，建议分开多张ppt，一个 vba 模块对应一个 slide。

保存需要保存为 pptm 格式才可以。

总结

这种方法只适合用自己笔记本电脑拿去汇报，有点局限性，但自己汇报炫一炫足够了。

1.发给别人，被人需要修改注册表才可以

2.用 pptx 格式做好后，要保存 vba 代码只能保存为 pptm 格式，且保存后打开后的第一次可正常使用，关闭，再重新打开，就不显示图表了，有点不太行