做网站百度云/合肥网络公司

年会是遇到抽奖环节如何制作ppt呢，这里有个解决方法，提供参考。

步骤就是这样：

1、新建ppt.

2、添加一个命令控件和一个标签控件（开发工具---控件---命令控件&标签控件）

3、点击“命令按钮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”上。”如果要修改上限号码就把“120”修改一下就行。

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

但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是打开文件---选项---信任中心---信任中心设置---启用所有宏。