PowerPoint制作抽奖幻灯片实例教程
时间:2023-07-19 17:06:25
在一些娱乐活动中,为了活跃现场的气氛,主办方往往会在活动中添加抽奖的环节。例如,主办方希望在100名观众中抽出1名幸运观众(如图1所示),如何利用PowerPoint制作抽奖幻灯片呢?此时可以按照以下步骤进行操作。
图1 单击【抽奖】按钮从1~100中产生随机数
(1)在PowerPoint 2007中,单击【Office按钮】,在随即打开的下拉菜单中,单击【PowerPoint选项】按钮,打开“PowerPoint选项”对话框。
(2)在“PowerPoint首选使用选项”选项区域中,选中“在功能区显示‘开发工具’选项卡”复选框,单击【确定】按钮,如图2所示。
图2 在功能区显 “开发工具”选项卡
(3)在“开发工具”选项卡的“控件”选项组中,先后单击【标签(ActiveX控件)】按钮和【命令按钮(ActiveX控件)】按钮,在幻灯片中添加一个标签控件和一个命令按钮控件,适当调整控件属性,并编辑按钮的名称,设置完成后如图3所示。
图3 向幻灯片中添加标签和命令按钮
(4)双击幻灯片中的添加的命令按钮,打开VB编辑器窗口,输入如下代码,如图4所示。
Private Sub CommandButton1_Click()
Label1.Caption = 1 + Int(99 * Rnd())
End Sub
图15.13 输入VBA代码产生1~100之间的一个随机整数
(5)单击【Office按钮】,执行下拉菜单中的【另存为】命令,打开“另存为”对话框,在“保存类型”设置为“启用宏的PowerPoint演示文稿”,然后单击【保存】按钮,将其保存为后缀为“pptm”格式的文件即可。
标签:按钮,控件,PPT制作教程
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
爱思助手连接不上安卓设备怎么解决?
2023-07-06 02:15:32
![](https://img.aspxhome.com/file/2023/7/a330762_0s.jpg)
AE怎么制作文字清晰变模糊的动画?AE制作文字清晰变模糊的动画教程
2022-02-23 13:38:29
![](https://img.aspxhome.com/file/2023/7/a328734_0s.jpg)
Windows11区域怎么改 Win11区域设置教程
2023-09-18 04:40:56
![](https://img.aspxhome.com/file/2023/28/a239565_0s.jpg)
Win7系统无法打开光盘的解决方法
2022-12-16 14:20:02
![](https://img.aspxhome.com/file/2023/27/a232965_0s.jpg)
怎么精确的把CAD图形复制到WORD里?
2023-05-15 13:30:53
![](https://img.aspxhome.com/file/2023/2/29122_0s.jpg)
如何在PowerPoint2007备注页中添加图片设置(图文)
2023-01-03 13:34:20
![](https://img.aspxhome.com/file/2023/10/a345023_0s.jpg)
如何在 WPS Office 手机版里恢复文档的历史版本
2022-06-28 09:43:30
![](https://img.aspxhome.com/file/2023/0/a184700_0s.png)
搜狗输入法2015工具箱怎么使用
2023-05-27 23:31:40
![](https://img.aspxhome.com/file/2023/5/a317558_0s.jpg)
excel二级下拉菜单如何设置
2023-04-19 12:33:42
excel中去掉水印的教程
2022-12-30 01:47:27
wps文字不能设置段落缩进怎么办
2023-01-22 07:05:12
苹果笔记本电脑win键是哪个键?
2023-11-19 08:46:38
![](https://img.aspxhome.com/file/2023/0/a214410_0s.jpg)
excel打开或关闭VBA编辑器自动语法检查功能
2022-03-11 16:48:51
Excel函数公式大全之IF函数
2022-01-21 12:04:20
![](https://img.aspxhome.com/file/2023/3/a157353_0s.png)
怎么快速重装win10系统?系统之家一键重装系统win10教程
2022-02-04 09:32:36
![](https://img.aspxhome.com/file/2023/1/a272596_0s.png)
如何用VLOOKUP函数调用其它表格的数据
2023-05-06 03:09:34
![](https://img.aspxhome.com/file/2023/5/a187515_0s.png)
如何把win10系统任务栏设置成透明?
2023-09-05 08:52:20
![](https://img.aspxhome.com/file/2023/2/47062_0s.jpg)
iOS9.3.3越狱后可以刷回来吗?iOS9.3.3越狱后刷回正式版教程
2022-05-20 04:41:11
![](https://img.aspxhome.com/file/2023/9/a200849_0s.jpg)
Dreamweaver cs6怎么格式化代码?格式化代码的操作步骤
2023-01-14 03:19:35
![](https://img.aspxhome.com/file/2023/7/a332072_0s.jpg)
电脑版wps表格如何给柱形图制作双坐标轴
2022-05-17 16:42:43
![](https://img.aspxhome.com/file/2023/3/a183993_0s.png)