大家好，我是好先生FX 。
在很多场景中我们都需要一个随机抽取的工具，如老师上课点名、公司活动抽奖 。实现这样的一种效果：
视频加载中...而通过PPT这个大众化的软件结合VBA来实现这个需求，无疑就成了大多数人的选择 。上面就是我通过1周的努力，终于在PPT中将这个随机抽取的功能以我自己喜欢的一种方式实现了 。接下来就将其中细节介绍给大家 。
一、文件准备
我们新建一个word文件，然后在其中逐行输入我们需要抽取的内容 。
二、PPT制作
1、文件选择功能
首先在PPT中放置一个点击选择文件的按钮，然后在VBA代码中通过Application.fileDialog实现Word文件选择的效果，最后通过遍历Paragraphs即可读取Word中的每一行 。
接着将读取到的内容，写入全局集合变量 待抽取项s。
2、点击抽取功能
点击抽取即开始待抽取项滚动动画，我们通过遍历循环待抽取项再结合Timer即可实现滚动效果 。
3、点击暂停抽取功能
首先我们要通过使用Randomize、Fix和Rnd生成一个随机数字，然后将这个随机数字与相同下标的待抽取项进行匹配，最后展示匹配到的待抽取项 。
这儿有一个需要考虑的情况，就是抽取结果要不要去重 。也就是一个待抽取项能不能多次抽中 。如果要避免一个待抽取项被多次抽中，就需要将抽中的项目加入全局集合变量 已抽取项s 中，然后在匹配时避开已抽取的项 。
4、重置功能
在页面中放置一个重置按钮，是我的一种妥协 。因为没有发现一个靠谱的方案，能够实现播放PPT即触发的事件 。所以只能手动点击重置功能 ， 来初始化页面中的内容 。
以上就是我的分享内容，如果你有更好的方法，欢迎评论区留言交流 。
【PPT随机抽取教程用于点名、抽奖等】
谢谢观看！