注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

春意盎然的博客

不经历风雨,怎能见彩虹?!

 
 
 

日志

 
 

【转载】用PPT制作动态抽签:  

2012-12-23 06:42:53|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自狐鸣狗盗《用PPT制作动态抽签:》

来源:http://blog.ifeng.com/article/3968011.html

制作方法:
1,新建一个ppt文档,命名为“PPT抽签”保存。选一个空白版式幻灯片,单击“插入”--“文本框”--“水平”,在幻灯片上拉出一个文本框,输入下列文字:“1—50 随机抽签程序”做标题。

2,单击“视图”--“工具栏”--“控件工具箱”,调出控件工具箱。单击选取控件工具箱上的“命令按钮”,然后在幻灯片的下方拉出一个按钮。右击该按钮,在弹出的菜单中选“属性”,在弹出的“属性”面板中设置按钮的各项属性:(1)Caption栏:在右边输入文字:“抽签”。(2)Font栏:设置字体、字号及字形。(3)Forecolor:设置字的颜色。(4)Height栏:设置高度,直接输入数字即可。(5)Width栏:设置宽度直接输入数字即可。

3,双击该按钮,进入VBA编辑界面,输入下列代码:
Option Explicit
Dim flag As Boolean, i As Integer
Private Sub CommandButton1_Click()
flag = True '初始化中断变量。当中断变量为真时开始抽签;
tzh1:  '设置一个行号
For i = 1 To 50  '假设有50个人
DoEvents   '释放程序控制权,允许执行其它事件。
TextBox1 = i    '文本框动态显示1到50
If flag = False Then Exit Sub
Next
If flag = True Then GoTo tzh1   '若一次for循环结束,还没有按下“停止”按钮,则跳转到所设行号重新进行循环。
End Sub

4,把“抽签”按钮,复制/粘贴在该按钮的右边。把Caption栏:“抽签”改成“停止”。双击“停止”按钮,输入代码:
Private Sub CommandButton2_Click()   '单击“停止”按钮。
flag = False    '中断循环。
End Sub

5,回到ppt文档窗口。单击选取“控件工具箱”中的“文字框”工具,在标题文字的下面拉出一个文字框。右击设置文字框的属性:(1)名称为默认的“TextBox1”。(2)Font栏:设置字体、字号及字形。(3)“BorderStyle”栏:设成“1-fmBorderStyleSingle”;
6,OK!现在可以放映幻灯片了,单击“抽签”按钮,你可以看到“文字框”中动态显示数字;单击“停止”按钮时,“文字框”中显示出被抽到的数字。

制作见“E:\txt\信息测试\PPT抽签.ppt”
本文见“E:\txt\信息测试\PPT抽签.txt”

  评论这张
 
阅读(48)| 评论(4)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018