PPT代码片段合集
批量操作
批量添加固定元素
批量删除固定元素
批量删除所有动画
图片批量变成灰色
批量取消文本加粗
待整理分类
将PPT拆分成单页
将PPT的页面逆序
PPT勾选交互效果
活动开始倒计时
随机抽奖或随机点名
制作指定月份的日历
循环放映时隐藏部分页面
只给未隐藏的页面添加页码
生成多等分的圆环
在奇偶页插入不同页脚
倒计时到特定日期
跳转到随机页面
随机打乱指定页面的顺序
跳转上一页与下一页
一键关闭所有插件
公众号：自律的音律
-
+
首页
循环放映时隐藏部分页面
> 如果需要在循环放映时播放指定页面，或者隐藏部分页面不放映，则可以使用下面这段代码。 **使用方法：** 先将所有页面都设置为自动切换，并在`“幻灯片放映”`选项卡中，点击`设置幻灯片放映`功能，在弹出的窗口中勾选`循环放映`。 设置完成后打开代码编辑器，插入如下代码，循环放映时就会跳过隐藏的页面。 **代码如下：** ```vb Sub OnSlideShowPageChange(SW As SlideShowWindow) If SW.View.CurrentShowPosition = 1 Then '修改数字为第一次循环开始的页面，例如这里设置为 1，则后面的 2 和 5 页放映时会直接跳过，如果设置为 4，则放映时第 2 页会播放一次，后面的循环放映中第 2 和第 5 页才会跳过' ActivePresentation.Slides(2).SlideShowTransition.Hidden = True ActivePresentation.Slides(5).SlideShowTransition.Hidden = True '循环放映时需要隐藏哪几页，就复制粘贴上面这行代码，并修改括号中的数字' End If End Sub Sub OnSlideShowTerminate() ActivePresentation.Slides(2).SlideShowTransition.Hidden = False ActivePresentation.Slides(5).SlideShowTransition.Hidden = False '同样，这里的代码也需要增改' End Sub ```
音律
May 17, 2022, 12:26 p.m.
0 条评论
转发文档
收藏文档
上一篇
下一篇
评论
手机扫码
复制链接
手机扫一扫转发分享
复制链接
Markdown文件
PDF文档
PDF文档（打印）
分享
链接
类型
密码
更新密码