PPT代码片段合集


  • 简介
  • 目录大纲
  • 最新文档

    批量添加固定元素

    如果想要在 PPT 的不同页面快速批量添加固定元素,比如批量在某个位置添加水印,可以参考本代码。 代码如下: vb Sub 批量复制() ActiveWindow.Selection.ShapeRange.Copy On Error GoTo ERRORTAG Dim stepNumber As Integer: Dim value1 As Integer, ………

    音律 - June 16, 2022, 8:02 p.m.


    一键关闭所有插件

    该代码可以快速禁用PPT中的所有插件 代码如下: vb Sub 禁用全部COM插件() Dim i As Integer Dim c As Integer: c = application.COMAddIns.count For i = 1 To c application.COMAddIns(i).Connec………

    音律 - June 11, 2022, 12:35 p.m.


    跳转上一页与下一页

    该代码可用于页面间的跳转,在跳转上一页与下一页的基础上,还重置了当前页面的动画效果,使 PPT 交互时动画可以重复播放。 通常情况下,可以选中按钮后,在插入选项卡中插入动作,并设置为单击超链接到上一张幻灯片或下一张幻灯片,从而实现点击按钮跳转到上一页或下一页。 这是最基础的交互效果,常用于课件的制作。 但使用超链接来做交互触发也有一定的局限,如果 PPT 中设置了动画,放映时动画播放完一次后………

    音律 - May 17, 2022, 11:21 p.m.


    随机打乱指定页面的顺序

    该代码可以将 PPT 指定区间内的页面顺序随机排布,运行后输入最大页数和最小页数即可。 代码如下: vb Sub 页面随机() Dim Iupper As Integer Dim Ilower As Integer Dim Ifrom As Integer Dim Ito As Integer Dim i As Integer Iupper =………

    音律 - May 17, 2022, 10:08 p.m.


    跳转到随机页面

    在做 PPT 交互触发时,偶尔需要点击按钮跳转到随机页面,可以用这段代码来实现。 先在代码编辑器中粘贴如下代码,并修改需要随机跳转的页面范围。 代码如下: vb Sub 跳转随机页面() '在 2-6 页之间随机跳转,可以自行修改下面的页码' Const iStart As Integer = 2 Const iEnd As Integer = 6 Dim I………

    音律 - May 17, 2022, 9:54 p.m.



    音律 , fanbal束