教你用PPT5分钟制作一个抽奖程序

先声明一下，用PPT做抽奖的人数不宜太多贺悉雀，最好控制在30个人以内。

看下效果

1、在word里面输入好你需要抽奖的名单，每个名字一行，然后保存，关闭；

2、打开PPT，新建幻灯片-从大纲，打开你保存好的Word名单。

3、选中其中一张幻灯片，打开幻灯片母版；

图中禅早打箭头的框框都删除，只留陆中下“单击此处编辑母版标题样式”；

调整母版，居中，设置字号，加粗；然后关闭幻灯片母版；

4、点击切换，把“单击鼠标时”的√去掉，设置自动切换时间为0.01，持续时间也为0.01，应用到所有幻灯片； （当然，如果不想名字转动太快可以设置时间久一点）

5，点击幻灯片放映-设置幻灯片放映，勾选循环播放，然后F5打工告成。

按数字键停止，按空格键继续抽奖，按Esc键退出。

是的，ppt抽奖小程序可通过 *** 作设置中奖人数。

首先创建抽奖活动的幻灯片背景，并在幻灯片中心增加“中奖名单：文本框”元素，按照所有参与抽奖活动的用户数新增第一步创建的幻灯片，并将用户的名称依次输入在各张幻灯片对应位置。

点击菜单栏【幻灯片放映】并打开【设置幻灯片放映】，在出现的d框中将【放映选项】下的【循环放映，按ESC键终止】进行勾选，再打握伏唤开菜单栏【切换】，勾选【设置自动换片时间】，点击【放映】即可查厅大看名单循环段凯滚动效果，点击esc键即可终止名单滚动。

步骤就是这样：

1、新建ppt.

2、打开“控件工具箱”， 步骤：菜单 视图>工具栏>控件工具箱。

3、点击控件箱上控件“命令按钮”， 在幻灯片1上画一个命令按钮CommandButton1,

4、点击控件箱上控件“标签”，在幻灯片1上画一个一个标签Label。

5、点击“命令按钮CommandButton1”右击鼠标，选“属性”，将CommandButton1的Caption属性设置为"抽奖开始",再如此方法，将Label1的Caption属性设置为空白。当然在属性中还可以设置字体、颜色等等。

6、点击在CommandButton1控件上右击，选“查看代码”，进入Visual Basic界面，编写代码：

Private Sub CommandButton1_Click()

Slide1.Label1.Caption = Int(Rnd * 120 + 1)

End Sub

这句代码可以意思是“点击丛旅命令按钮CommandButton1生成一个1到120之间的随机整数，并把它输出到标签label1”上。”

还要注意一点，这里编写的VB程序实际上就是“宏”。很多人链郑粗把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑。所以为了安全，很多人都把宏禁用了。

但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是ppt中的工具>选项菜单，“安全棚镇性”选项卡，“宏安全性”按钮，在d出的“安全性”窗口中就可以设置宏的安全级别。

当然这个最好做一个flash 软件 插入ppt.

---