在一些娱乐活动中，为了活跃现场的气氛，主办方往往会在活动中添加抽奖的环节。例)，。
图2 在功能区显 “开发工具”选项卡
3、在“开发工具”选项卡的“控件”选项组中，先后单击【标签(ActiveX控件)】按钮和【命令按钮(ActiveX控件)】按钮，在幻灯片中添加一个标签控件和一个命令按钮控件，适当调整控件属性，并编辑按钮的名称，设置完成后。
图3 向幻灯片中添加标签和命令按钮
4、双击幻灯片中的添加的命令按钮，打开VB编辑器窗口，输入。
Private Sub CommandButton1_Click()
Label1.Caption = 1 + Int(99 * Rnd())
End Sub
图4 输入VBA代码产生1~100之间的一个随机整数
5、单击【Office按钮】，执行下拉菜单中的【另存为】命令，打开“另存为”对话框，在“保存类型”设置为“启用宏的PowerPoint演示文稿”，然后单击【保存】按钮，将其保存为后缀为“pptm”格式的文件即可。
……