如何在ppt中插入类似抽签的软件

参考一下====制作方法:
1，新建一个ppt文档，命名为“PPT抽签”保存。选一个空白版式幻灯片，单击“插入”--“文本框”--“水平”，在幻灯片上拉出一个文本框，输入下列文字：“1—50 随机抽签程序”做标题。
2，单击“视图”--“工具栏”--“控件工具箱”，调出控件工具箱。单击选取控件工具箱上的“命令按钮”，然后在幻灯片的下方拉出一个按钮。右击该按钮，在弹出的菜单中选“属性”，在弹出的“属性”面板中设置按钮的各项属性：（1）Caption栏：在右边输入文字：“抽签”。（2）Font栏：设置字体、字号及字形。（3）Forecolor：设置字的颜色。（4）Height栏：设置高度，直接输入数字即可。（5）Width栏：设置宽度直接输入数字即可。
3，双击该按钮，进入VBA编辑界面，输入下列代码：
Option Explicit
Dim flag As Boolean, i As Integer
Private Sub CommandButton1_Click()
flag = True '初始化中断变量。当中断变量为真时开始抽签；
tzh1: '设置一个行号
For i = 1 To 50 '假设有50个人
DoEvents '释放程序控制权，允许执行其它事件。
TextBox1 = i '文本框动态显示1到50
If flag = False Then Exit Sub
Next
If flag = True Then GoTo tzh1 '若一次for循环结束，还没有按下“停止”按钮，则跳转到所设行号重新进行循环。
End Sub
4，把“抽签”按钮，复制/粘贴在该按钮的右边。把Caption栏：“抽签”改成“停止”。双击“停止”按钮，输入代码：
Private Sub CommandButton2_Click() '单击“停止”按钮。
flag = False '中断循环。
End Sub
5，回到ppt文档窗口。单击选取“控件工具箱”中的“文字框”工具，在标题文字的下面拉出一个文字框。右击设置文字框的属性：（1）名称为默认的“TextBox1”。（2）Font栏：设置字体、字号及字形。（3）“BorderStyle”栏：设成“1-fmBorderStyleSingle”；
6，OK！现在可以放映幻灯片了，单击“抽签”按钮，你可以看到“文字框”中动态显示数字；单击“停止”按钮时，“文字框”中显示出被抽到的数字。
制作见“E：\txt\信息测试\PPT抽签.ppt”
本文见“E：\txt\信息测试\PPT抽签.txt”