随机抽号器ppt（怎么在ppt中实现随机抽题）

本文目录

• 怎么在ppt中实现随机抽题
• 如何在ppt 中加入随机抽签
• 怎么用ppt实现一个随机抽取名字的功能
• 我要做个ppt，随机抽题后题目变换，怎么做
• 我需要在ppt中设定一个抽号器，可随机抽取1~50个中任意一个号，请大侠帮忙发给成品！小女子感激不尽！
• ppt随机抽号
• 如何在PPT里做一个随机抽取人名的东西
• 怎样把音乐植入随机抽号的ppt中
• 求ppt随机抽号1-10 就像抽取幸运观众一样

怎么在ppt中实现随机抽题

　　我们都知道，在excel中可以用公式做一个数字随机器，其实在ppt中也可以，应该怎么操作呢?以下是我为您带来的关于PPT实现随机抽题，希望对您有所帮助。

　　PPT实现随机抽题

　　设计抽题界面

　　打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式(即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式),在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插入三个命令按钮控件，在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框，在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称(可随意大写，我这儿设置的与按钮名称相同)，并对字体、字号、背景颜色、样式等进行设置。

　　再插入三个文本框控件，同样在“属性”对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框”放到“开始”和“停止”命令按钮控件之间，把“结果框”放到“您抽取的是 号题”文本中，将“已抽题目”拖至适合大小，放置到下面(图1)。

　　接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。

　　编写宏代码

　　接下来，按ALT+F11组合键，打开VBA宏窗口，双击左侧的“Slide1”，将以下代码复制到右窗格中并保存。

　　Private Sub 开始_Click()

　　停止.Enabled = True ’停止按钮当前有效

　　Dim a As Integer

　　Randomize

　　Do

　　a = Fix(Rnd * 10 + 1) ’使用随机函数

　　抽取框.Text = a

　　结果框.Text = ""

　　DoEvents

　　Loop

　　End Sub

　　Private Sub 停止_Click()

　　结果框.Text = 抽取框.Text

　　已抽题目 = 已抽题目 + 抽取框 + " # " ’题目标记用#分隔

　　停止.Enabled = False

　　End

　　End Sub

　　Private Sub 打开抽取的题目_Click()

　　ActivePresentation.SlideShowWindow_

　　.View.GotoSlide Val(抽取框.Text + 1)

　　End Sub

　　随机抽取题目并打开

　　到抽取题目时，放映幻灯片，点击第一张的“开始”按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，点击“停止”按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是X号题”提示，在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮，切换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题(图2)。

　　小提示：在幻灯片放映状态下，可以选中三个文本框控件中的文本，删除它们，达到清零的目的。

　　代码图示

　　宏代码

　　Private Sub 开始_Click()

　　停止.Enabled = True ’停止按钮当前有效

　　Dim a As Integer

　　Randomize

　　Do

　　a = Fix(Rnd * 10 + 1) ’使用随机函数

　　抽取框.Text = a

　　结果框.Text = ""

　　DoEvents

　　Loop

　　End Sub

　　Private Sub 停止_Click()

　　结果框.Text = 抽取框.Text

　　已抽题目 = 已抽题目 + 抽取框 + " # " ’题目标记用#分隔

　　停止.Enabled = False

　　End

　　End Sub

　　Private Sub 打开抽取的题目_Click()

　　ActivePresentation.SlideShowWindow_

　　.View.GotoSlide Val(抽取框.Text + 1)

　　End Sub

如何在ppt 中加入随机抽签

1、浏览电脑上的所有软件的一些基本信息，针对如何在ppt中加入随机抽签的问题，只需要找到要用到的ppt软件这个选项，然后点击进入。2、随后找到页面中的插入工具并点击，随后会出现一个窗口，找到窗口中的文本框，然后点击。3、随后在主页面创建好五个文档，然后在文档中填写好需要用到的数字1-5的序号。4、随后浏览页面中的工具选项，找到需要用到的幻灯片放映这个选项，然后点击，接着会出现一个窗口，找到窗口中的自定义幻灯片放映这个选项，然后点击。5、随后会出现一个放映的选择窗口，浏览窗口中的所有选项信息，找到需要用到的循环放映这个选项，然后点击勾选中并点击确定。6、最后点击从头放映这个选项，这样ppt的随机抽签就成功的制作好了。

怎么用ppt实现一个随机抽取名字的功能

1、使用Word制作随机抽取名单。

将需要随机抽取名单的姓名或编号，复制粘贴到Word文档中（新建一个Word文档）。

格式要求每个姓名或编号单独占一行。可用回车键(Enter)将名单分开。

2、新建一个ppt文件，点击左上角“ 文件-”，点击“打开”，选择“所有文件”，找到刚刚制作的Word文档。

3、点击确定后将会开始加载word文档转换为PPT。

加载后会再加载一个PPT文件，演示文档2。将窗口移到此文件中。

4、依次点击“视图”，“幻灯片母版” ，翻到最后一个板式（标题和文本）

删除此版式中下方四个文本框，仅留上方一个含有“单击此处母版标题样式”的文本框

删除下方四个。

5、删除此版式中下方四个文本框，仅留上方一个含有“单击此处母版标题样式”的文本框。

6、将仅留的文本框移动到中心。并修改其中文本格式，修改到自己所需的样式（居中，文本大小等）。

7、调整好后，点击“关闭母版视图”。

8、设置幻灯片放映设置。首先在左方缩略图中选中第一张幻灯片，然后使用快捷键“Ctrl+A”选中所有幻灯片缩略图

9、依次点击“切换”，“计时”。换片方式中选中“设计自动换片时间并看时间是否为00:00:00”,取消“单击鼠标时”选框（可省略）。

10、接着再依次点击“幻灯片放映”,"设置幻灯片放映。在其中的放映选项中选择“循环放映，按ESC键终止”，点击确定。

`

10，此时已设置完成

可点击幻灯片放映或（F5），如果是笔记本可用组合键“Fn+F5”。自动轮播后，可点击方向上键或左键暂停，使用下键和右键继续。

我要做个ppt，随机抽题后题目变换，怎么做

比如，对于题目4，先在所有题号那张PPT后做一张4题的PPT。然后在题号数字4的区域内点右键，选择“超链接”，然后选择第4题内容的PPT，点确定。如果想第4题这一页用完了返回到题号页，则在该题目页上设超链接，方法与前面相同。

我需要在ppt中设定一个抽号器，可随机抽取1~50个中任意一个号，请大侠帮忙发给成品！小女子感激不尽！

***隐藏网址***

下载地址:现学现用的调试了一个抽号器，数字限定在1~50之间，使用前请允许使用宏，未做界面美化，请自行根据需要进行美化。代码如下:SubtxtStart()Fori=1To5000WithActivePresentation.Slides(1)Forj=1To1With.Shapes("txtNum"&j).TextFrame.TextRange.Text=Int((50-1+1)*Rnd+1)

ppt随机抽号

***隐藏网址***

原程序是从1到50之间随机取数。楼主是希望从1到300之间随机取数吗？解决方法:Text=Int((50-1+1)*Rnd+1)将50调整为300下载地址:

如何在PPT里做一个随机抽取人名的东西

1、首先，我们在单词上我们的名字。

2、如何使用PPT进行随机名称抽奖然后在我们的办公室打开它。打开我们的word文件，自动将我们的人员输入我们的ppt。

3、然后选择视图主文件，将文本框居中，并调整文本大小和字体。关闭后，我们可以根据需要调整副本。

4、选择主控后，我们在动画中将显示时间设置为0。从点击开关上取下挂钩。并适用所有。

5、然后输入我们的节目设置并单击设置中的循环节目。确定。

6、之后，我们可以开始随机随机抽签，按S暂停。

怎样把音乐植入随机抽号的ppt中

1、打开ppt软件，把ppt文件打开。2、点击ppt软件上方的插入选项，点击右侧音频图标。选择pc上的音频。3、找到音频位置，点击插入即可把音乐植入随机抽号的ppt中。

求ppt随机抽号1-10 就像抽取幸运观众一样

添加一个命令按钮和一个标签控件，在命令按钮中键入：Label1.Caption = 1 + Int(10 * Rnd())放映时每单击一次命令按钮，就产生一个1-10之间的随机数字。