以PowerPoint 2007为例(2010及以上类似,2003直接“视图→工具栏→控件工具箱”即可)
打开PowerPoint,将文件保存为*.pptm格式(包含宏代码的演示文稿)
若没有“开发工具”选项卡,请打开
通过“开发工具”选项卡,插入一个文本框控件,和两个命令按钮控件
文本框控件:命名为“TextBox1”(选中控件,更改“属性”当中的“(名称)”)
命令按钮控件:一个命名为“开始”,另一个命名为“清除”(选中控件,更改“属性”当中的“Caption”)
可根据自己的需要,更改“文本框”以及“命令按钮”字体、字号等属性
编写程序(示例)双击“开始”按钮,弹出程序编写框,在中间空白处输入以下内容:
Dim a As Integer
Dim s As String
Dim c As Integer
s = "张三丰张无忌王小明李鸣 "
c = Len(s)
a = Int(((c / 3) * Rnd) + 1)
TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)
可将“s = "后的内容改为自己需要的名字,注意三个字的不加空格,两个字的后面要加一空格
双击“结束”按钮,在中间空白处输入:
TextBox1.Text = ""
这样便可以实现随机抽取姓名的功能
鹏鑫起名网 www.0753px.com
Copyright 2011-2019 梅州市鹏鑫网络科技有限公司 版权所有 粤ICP备16129484号