PPT代码片段合集
批量操作
批量添加固定元素
批量删除固定元素
批量删除所有动画
图片批量变成灰色
批量取消文本加粗
待整理分类
将PPT拆分成单页
将PPT的页面逆序
PPT勾选交互效果
活动开始倒计时
随机抽奖或随机点名
制作指定月份的日历
循环放映时隐藏部分页面
只给未隐藏的页面添加页码
生成多等分的圆环
在奇偶页插入不同页脚
倒计时到特定日期
跳转到随机页面
随机打乱指定页面的顺序
跳转上一页与下一页
一键关闭所有插件
公众号:自律的音律
-
+
首页
随机抽奖或随机点名
> 很多活动都会用到随机抽奖,该代码可以提前设置抽奖名单,点击按钮即可从名单中随机显示一个人名,该代码也可以用来随机点名。 **使用方法:** 先新建一个 TXT 文档,将人员名单复制进去,设置成每行一个人名。 接着在记事本中点击文件另存为,在弹出的窗口中修改编码为`ANSI`,这样中文人名才能被正常读取与显示,如果未修改直接使用`UTF-8`编码保存的话,抽奖后中文人名会显示为乱码。 另存时,将文件命名为`抽奖名单.txt` 查看该 txt 文件所在的位置,并记录下来,比如`D:\抽奖名单.txt` 接下来,打开 PPT 并新建一页带有`标题占位符`的页面,然后打开代码编辑器,粘贴下方的代码。 **代码如下:** ```vb Sub 随机点名() Dim rayNames() As String Dim filenum As Integer Dim strInput As String Dim filepath As String Dim L As Long filepath = "D:\抽奖名单.txt" '这里改成抽奖名单所在的绝对路径' filenum = FreeFile ReDim rayNames(1 To 1) Open filepath For Input As filenum While Not EOF(filenum) Line Input #filenum, strInput rayNames(UBound(rayNames)) = strInput ReDim Preserve rayNames(1 To UBound(rayNames) + 1) Wend ReDim Preserve rayNames(1 To UBound(rayNames) - 1) Randomize L = Int(Rnd * (UBound(rayNames)) + 1) ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = rayNames(L) End Sub ``` 代码设置完成后,回到 PPT 编辑界面,插入一个形状。 选中该形状,并在`“插入”`选项卡中点击`“动作”`功能,动作设置为单击鼠标运行宏`随机点名`。 最后,在放映时点击上一步插入的形状,就会在标题占位符中随机显示一个人名。
音律
2022年5月16日 23:23
0 条评论
转发文档
收藏文档
上一篇
下一篇
评论
手机扫码
复制链接
手机扫一扫转发分享
复制链接
Markdown文件
PDF文档
PDF文档(打印)
分享
链接
类型
密码
更新密码