最近新get到的技能,在ppt里面插入html!注意要用 Microsoft Office PowerPoint 才行,而不是wps,一定要先安裝Microsoft Office PowerPoint再執行以下操作。
1、修改注冊表的值,才能在PowerPoint中插入 Microsoft Web Browser(兼容性很差)。
按下win+r
=> 輸入 regedit
確定 =》 選中 HKEY_LOCAL_MACHINE點編輯 - 搜索 (或者直接按 ctrl+f
)=》 查找目標輸入 {8856F961-340A-11D0-A96B-00C04FD705A2}
,勾選項即可開始查找 =》 直到查到結尾為 ActiveX Compatibility 或者 COM Compatibility 的地方,雙擊名稱,將值改完0點確定即可。然后繼續重復查找,直到查找結束(應該有2-3
處修改)
2、在PowerPoint中插入 Microsoft Web Browser。
1.文件 =》選項=》信任中心=》ActiveX設置=》勾選無權限=》確定=》確定
2.文件 =》選項=》自定義功能區-》勾選開發工具=》確定
3.開發工具=》其他控件=》Microsoft Web Browser=》確定=》鼠標變為十字形,按住左鍵,移動鼠標,劃出一片區域為html窗口大小
3、雙擊html,進入visual basic編程
1.清空自動生成的代碼,輸入以下,代碼表示進入時自動觸發加載html:
Sub OnSlideShowPageChange()
Dim url As String
url = ActivePresentation.Path + "/chart1.html"
WebBrowser1.Silent = True '加載過程不提示
WebBrowser1.Navigate (url)
End Sub
2.這時html就被嵌入ppt了。返回到ppt運行預覽即可。ActivePresentation.Path是當前pppt路徑,把html放在相同路徑下即可,也可以放在服務器上。
3.html記得加入以下meta標簽,讓瀏覽器用最高版本渲染
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
4、注意事項
- 若出現
為幫助保護你的安全,你的web瀏覽器已經限制此文件顯示
,則點擊搜索-輸入Internet-打開Internet選項-高級-勾選 允許活動內容 -確定即可。有時不生效需要取消勾選-確定-勾選多重復幾次。
- 保存格式一定要是啟用宏的powerpoint(pptm)。
- 當下次打開后發現html空白,是因為Visual Basic沒有被打開,可以雙擊某個html(或控件)打開或者點擊開發工具-Visual Basic打開即可。
- 一般用來加echarts或者,諸如地圖之類的效果,讓ppt更加高大上。
echarts示例官網:https://echarts.apache.org/examples/zh/index.html
附上一個簡單的echarts.html
<!DOCTYPE html>
<!-- saved from url=(0013)about:internet -->
<html lang="en"><head><meta charset="UTF-8" /><meta http-equiv="X-UA-Compatible" content="IE=edge" /><!-- <meta name="renderer" content="webkit" /> --><!-- <meta http-equiv="X-UA-Compatible" content="chrome=1" /> --><meta name="viewport" content="width=device-width, initial-scale=1.0" /><title>echarts</title><script src="http://101.35.125.245/utils/echarts.min.js"></script><!-- <script src="./echarts.min.js"></script> --></head><body onload="init()"><div id="chart"></div><script>function init() {var chartDom = document.getElementById("chart");var myChart = echarts.init(chartDom);var option = {xAxis: {type: "category",boundaryGap: false,data: ["Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"],},yAxis: {type: "value",},series: [{data: [820, 932, 901, 934, 1290, 1330, 1320],type: "line",areaStyle: {},},],};myChart.setOption(option);}</script><style>html,body,#chart {width: 100%;height: 100%;margin: 0;overflow: hidden;}</style></body>
</html>
- 需要Microsoft Office PowerPoint安裝包、echarts包可以留言