- 简介
- 目录大纲
- 最新文档
活动开始倒计时
这是用于倒计时的代码,可以提前设置好目标时间,放映后会自动计算剩余时间,精确到秒,可以用来做活动或高考的倒计时。 使用方法: 打开 PPT 后新建一页带有标题占位符的页面,然后在“切换”选项卡中设置自动换片时间为 1 秒。 接着在“幻灯片放映”选项卡中,点击设置幻灯片放映功能,在弹出的窗口中勾选循环放映。 设置完成后打开代码编辑器,插入如下代码并运行,放映时就会根据设置的目标时间自动倒计时。………
音律 - July 25, 2023, 7 p.m.
批量添加固定元素
如果想要在 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.