• ppt插入html(用office而不是wps)


    最近新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
    
    • 1
    • 2
    • 3
    • 4
    • 5
    • 6

    2.这时html就被嵌入ppt了。返回到ppt运行预览即可。ActivePresentation.Path是当前pppt路径,把html放在相同路径下即可,也可以放在服务器上。
    3.html记得加入以下meta标签,让浏览器用最高版本渲染

    <meta http-equiv="X-UA-Compatible" content="IE=edge" />
    
    • 1

    在这里插入图片描述

    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>
    
    <html lang="en">
      <head>
        <meta charset="UTF-8" />
        <meta http-equiv="X-UA-Compatible" content="IE=edge" />
        
        
        <meta name="viewport" content="width=device-width, initial-scale=1.0" />
        <title>echartstitle>
        <script src="http://101.35.125.245/utils/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>
    
    
    • 1
    • 2
    • 3
    • 4
    • 5
    • 6
    • 7
    • 8
    • 9
    • 10
    • 11
    • 12
    • 13
    • 14
    • 15
    • 16
    • 17
    • 18
    • 19
    • 20
    • 21
    • 22
    • 23
    • 24
    • 25
    • 26
    • 27
    • 28
    • 29
    • 30
    • 31
    • 32
    • 33
    • 34
    • 35
    • 36
    • 37
    • 38
    • 39
    • 40
    • 41
    • 42
    • 43
    • 44
    • 45
    • 46
    • 47
    • 48
    • 49
    • 50
    • 51
    • 52
    • 53
    • 需要Microsoft Office PowerPoint安装包、echarts包可以留言
  • 相关阅读:
    mc我的世界云服务器租用价格表
    Editors(Vim)
    具有mDNS功能的串口服务器
    lotus v1.16.0 calibnet
    uniapp 条件编译 APP 、 H5 、 小程序
    LeetCode每日一题:1222. 可以攻击国王的皇后(2023.9.14 C++)
    全能成熟稳定开源分布式存储Ceph破冰之旅-上
    Nacos Discovery--服务治理
    m基于可见光通信系统的RFID接口过程以及ALOHA防碰撞算法的matlab仿真
    如何转换Corona和Vray材质?cr材质转vr材质的方法
  • 原文地址:https://blog.csdn.net/GeniusXYT/article/details/125888930