- 简介
- 目录大纲
- 最新文档
批量添加固定元素
如果想要在 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.