1.首先需要PPT2013版本以上带有开发工具,能够添加microsoft web browser控件
2.将echarts图表的html代码中加载 <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE*"/>代码(*处至少为9或以上),将HTML设置成IE的内核。
3.在控件中加入以下代码(根据自己的控件杂项名称进行更改)
Private Sub WebBrowser1_DownloadBegin()
WebBrowser1.Silent = True
End Sub
Private Sub WebBrowser1_DownloadComplete()
WebBrowser1.Silent = True
End Sub
Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("文件路径")
End Sub
4.将该注册表中(打开CMD命令输入regedit)
HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}
将右侧 Compatibility Flags值21改为十六位0
如果无法搜索到:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}
就搜索这个: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
效果图: