PPT代码片段合集
批量操作
批量添加固定元素
批量删除固定元素
批量删除所有动画
图片批量变成灰色
批量取消文本加粗
待整理分类
将PPT拆分成单页
将PPT的页面逆序
PPT勾选交互效果
活动开始倒计时
随机抽奖或随机点名
制作指定月份的日历
循环放映时隐藏部分页面
只给未隐藏的页面添加页码
生成多等分的圆环
在奇偶页插入不同页脚
倒计时到特定日期
跳转到随机页面
随机打乱指定页面的顺序
跳转上一页与下一页
一键关闭所有插件
公众号：自律的音律
-
+
首页
随机打乱指定页面的顺序
> 该代码可以将 PPT 指定区间内的页面顺序随机排布，运行后输入最大页数和最小页数即可。 **代码如下：** ```vb Sub 页面随机() Dim Iupper As Integer Dim Ilower As Integer Dim Ifrom As Integer Dim Ito As Integer Dim i As Integer Iupper = InputBox("输入页面随机区间的最大页码") Ilower = InputBox("输入页面随机区间的最小页码") If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo err For i = 1 To 2 * Iupper Randomize Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower) Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower) ActivePresentation.Slides(Ifrom).MoveTo (Ito) Next i Exit Sub err: MsgBox "所选页面超出了范围", vbCritical End Sub ```
音律
May 17, 2022, 10:08 p.m.
1 条评论
转发文档
收藏文档
上一篇
下一篇
评论
手机扫码
复制链接
手机扫一扫转发分享
复制链接
Markdown文件
PDF文档
PDF文档（打印）
分享
链接
类型
密码
更新密码