随机抽奖或随机点名

> 很多活动都会用到随机抽奖，该代码可以提前设置抽奖名单，点击按钮即可从名单中随机显示一个人名，该代码也可以用来随机点名。

**使用方法：**

先新建一个 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 编辑界面，插入一个形状。

选中该形状，并在`“插入”`选项卡中点击`“动作”`功能，动作设置为单击鼠标运行宏`随机点名`。

最后，在放映时点击上一步插入的形状，就会在标题占位符中随机显示一个人名。