大家好，我是好先生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即触发的事件。所以只能手动点击重置功能，来初始化页面中的内容。

以上就是我的分享内容，如果你有更好的方法，欢迎评论区留言交流。

谢谢观看！