用PowerPoint中的VBA实现课件中的智能交互
来源:互联网 发布:中软科技软件 编辑:程序博客网 时间:2024/05/15 00:10
PowerPoint中的VBA可以实现很多复杂的交互,但很多老师面对VBA编程,都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题,以后在课件中实现交互就不会那么费劲了。
VBA基础
说到VBA编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。
1. 显示控件工具箱
在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。
2. 控件工具箱(如图1)中常用按钮的介绍
(1)复选框(CheckBox):可以选择多个选项,常用来设计多选题;(2)文本框(TextBox):可以输入文本,常用来设计填空题;(3)命令按钮(CommandButton):用来确定选择或输入,也可设计超级链接;(4)单选框(OptionButton):只能选中一个选项,常用来设计单选题或判断题;(5)标签(Label):用来显示文字信息。
3. 插入控件的方法
单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。
4. 进入VBA的方法
双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。
5. 控件的主要属性及设置方法
进入VBA后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。下面我们就不同的控件,来说明常用属性的设置方法。
(1)复选框
AutoSize:有两个值,True表示根据字的多少调整复选框的大小,False表示复选框为固定大小;BackColor:设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;Caption:控件的名称,把默认值删除再重新输入新名称;Font:设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中设置;Forecolor:设置字的颜色,设置方法同BackColor;Height:复选框的高度,直接输入数字即可;Width:复选框的宽度,直接输入数字即可;Value:复选框的值,True为选中,False则相反。
(2)文本框
AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框;Value:文本框的值,用来保存输入的文本;TextAlign:设置文本对齐方式。
(3)单选框
属性设置同复选框。
(4)标签
除Value外,其他同复选框。
(5)命令按钮
同标签。
6. 消息框MsgBox的功能
我们常用消息框显示一些交互的信息,如图2所示的消息框用下面的语句可实现:
Msgbox("这是一个例题",VbYesNo,"示例")
多选题的制作
1. 题目的设计同单选题
2. 选项:用复选框(CheckBox),其他设置同单选题。
3. [查看答案]命令按钮:因为是多选题,答案有多个,所以要书写多个条件,条件之间用and连接,表示同时满足这几个条件,例如第一、三、五的选项是正确的,则需要输入如下语句:
If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then
给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
填空题的制作
1. 题目的设置同单选题,填空的地方用文本框。
2. 判断正误:因为是填空题,所填答案是文本,所以条件书写为:
if TextBox1.value="正确的文本" then 给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
注意:正确的文本一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
3. [重新填空]命令按钮:需要完成如下语句的设置:
Private Sub CommandButton2_Click()
TextBox1.Value = "请双击后填入你的答案!"
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = " "
End Sub
单选题的制作
例如我们要设计如图1所示的选择题。
1. 题目
可用文本框,也可用标签。如果用文本框,直接输入文本即可。如果用标签,插入后双击该标签启动VBA,修改Caption属性为“5X-15=0的解是:”,再根据需要修改其他属性(如颜色等)。
2. 选项
插入一单选框,修改其Caption属性为“0”,其他属性可自行修改。其他的单选项可复制制作好的单选框,然后再修改它们的Caption属性。
3. 查看答案命令按钮
在此使用命令按钮,我们可根据单选框的Value属性的值来判断答案,如正确选项(单选框)的Value的值为True,则为该题选择正确,否则为选择错误,我们还可根据选择正误来给出信息,有两种方法。
(1)方法一
用MsgBox(),如果选择正确,显示信息“Very Good!请继续!”,错误则显示“Sorry,你选错了!正确答案是3,请继续努力。”
操作步骤:双击单选框进入VBA,在编辑窗口中完成以下操作。
A. 在编辑窗口中找到如下两条语句:
Private Sub OptionButton3_Click()
End Sub
然后在上面这两条语句中间插入以下语句:
If OptionButton3.Value=True Then ex=MsgBox("Very Good!请继续努力。",Vbokonly)
B. 同理,找到如下两条语句:
Private Sub OptionButton1_Click()
End Sub
在这两条语句中间插入语句:
If OptionButton1.Value=True Then ex=MsgBox("正确答案是3 ,请继续努力。",Vbokonly)
C. 找到如下两条语句
Private Sub OptionButton2_Click()
End Sub
在这两条语句中间插入语句
If OptionButton2.Value=True Then ex=MsgBox("正确答案是 3,请继续努力。",Vbokonly)
说明:ex为自定义变量
(2)方法二
在幻灯片合适的地方插入一标签,修改其Caption属性为空,其他设置同方法一,只要把正确选项中的“then”后的语名改为“label2.caption="Very Good!"请继续!"”,错误选项的改为“label2.caption="正确答案是3 ,请继续努力。"”即可。
4. 重新选择命令按钮
在幻灯片适当的地方插入一命令按钮,修改其Caption属性为“重新选择”,在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入:
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
Label2.Caption =""如判断正误用的是方法一,此语句不要)
5. 下一题命令按钮
在幻灯片适当地方插入一命令按钮,修改其Caption属性为“下一题”,在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入
If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=vbYes Then
With SlideShowWindows(1).View
.GotoSlide 2
End With(2为第2张幻灯片,此语句表示转到第2张幻灯片)
End if
如果要根据条件的不同转到不同的幻灯片,可用下面语句:
if 条件 then
With SlideShowWindows(1).View
.GotoSlide 2
End With
End if
说明:条件可以是Caption属性或value属性,书写方法为:控件名称(在VBA中的名称).属性=(value属性为True或False,Caption属性为具体文本,注意文本要加双引号),例如下面的语句:
if optionbutton1.value=true then
表示如果单选框1的value值为True,那么运行then后的语句,一直到end if。
判断题的制作
所有的设置与单选题类似,只不过是设计两个选项“√”和“×”,这两个符号可先在Word中插入,然后再复制过来。
VBA基础
说到VBA编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。
1. 显示控件工具箱
在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。
2. 控件工具箱(如图1)中常用按钮的介绍
(1)复选框(CheckBox):可以选择多个选项,常用来设计多选题;(2)文本框(TextBox):可以输入文本,常用来设计填空题;(3)命令按钮(CommandButton):用来确定选择或输入,也可设计超级链接;(4)单选框(OptionButton):只能选中一个选项,常用来设计单选题或判断题;(5)标签(Label):用来显示文字信息。
3. 插入控件的方法
单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。
4. 进入VBA的方法
双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。
5. 控件的主要属性及设置方法
进入VBA后,需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口,按F4键即可调出该窗口。下面我们就不同的控件,来说明常用属性的设置方法。
(1)复选框
AutoSize:有两个值,True表示根据字的多少调整复选框的大小,False表示复选框为固定大小;BackColor:设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;Caption:控件的名称,把默认值删除再重新输入新名称;Font:设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中设置;Forecolor:设置字的颜色,设置方法同BackColor;Height:复选框的高度,直接输入数字即可;Width:复选框的宽度,直接输入数字即可;Value:复选框的值,True为选中,False则相反。
(2)文本框
AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框;Value:文本框的值,用来保存输入的文本;TextAlign:设置文本对齐方式。
(3)单选框
属性设置同复选框。
(4)标签
除Value外,其他同复选框。
(5)命令按钮
同标签。
6. 消息框MsgBox的功能
我们常用消息框显示一些交互的信息,如图2所示的消息框用下面的语句可实现:
Msgbox("这是一个例题",VbYesNo,"示例")
多选题的制作
1. 题目的设计同单选题
2. 选项:用复选框(CheckBox),其他设置同单选题。
3. [查看答案]命令按钮:因为是多选题,答案有多个,所以要书写多个条件,条件之间用and连接,表示同时满足这几个条件,例如第一、三、五的选项是正确的,则需要输入如下语句:
If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then
给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
填空题的制作
1. 题目的设置同单选题,填空的地方用文本框。
2. 判断正误:因为是填空题,所填答案是文本,所以条件书写为:
if TextBox1.value="正确的文本" then 给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
注意:正确的文本一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
3. [重新填空]命令按钮:需要完成如下语句的设置:
Private Sub CommandButton2_Click()
TextBox1.Value = "请双击后填入你的答案!"
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = " "
End Sub
单选题的制作
例如我们要设计如图1所示的选择题。
1. 题目
可用文本框,也可用标签。如果用文本框,直接输入文本即可。如果用标签,插入后双击该标签启动VBA,修改Caption属性为“5X-15=0的解是:”,再根据需要修改其他属性(如颜色等)。
2. 选项
插入一单选框,修改其Caption属性为“0”,其他属性可自行修改。其他的单选项可复制制作好的单选框,然后再修改它们的Caption属性。
3. 查看答案命令按钮
在此使用命令按钮,我们可根据单选框的Value属性的值来判断答案,如正确选项(单选框)的Value的值为True,则为该题选择正确,否则为选择错误,我们还可根据选择正误来给出信息,有两种方法。
(1)方法一
用MsgBox(),如果选择正确,显示信息“Very Good!请继续!”,错误则显示“Sorry,你选错了!正确答案是3,请继续努力。”
操作步骤:双击单选框进入VBA,在编辑窗口中完成以下操作。
A. 在编辑窗口中找到如下两条语句:
Private Sub OptionButton3_Click()
End Sub
然后在上面这两条语句中间插入以下语句:
If OptionButton3.Value=True Then ex=MsgBox("Very Good!请继续努力。",Vbokonly)
B. 同理,找到如下两条语句:
Private Sub OptionButton1_Click()
End Sub
在这两条语句中间插入语句:
If OptionButton1.Value=True Then ex=MsgBox("正确答案是3 ,请继续努力。",Vbokonly)
C. 找到如下两条语句
Private Sub OptionButton2_Click()
End Sub
在这两条语句中间插入语句
If OptionButton2.Value=True Then ex=MsgBox("正确答案是 3,请继续努力。",Vbokonly)
说明:ex为自定义变量
(2)方法二
在幻灯片合适的地方插入一标签,修改其Caption属性为空,其他设置同方法一,只要把正确选项中的“then”后的语名改为“label2.caption="Very Good!"请继续!"”,错误选项的改为“label2.caption="正确答案是3 ,请继续努力。"”即可。
4. 重新选择命令按钮
在幻灯片适当的地方插入一命令按钮,修改其Caption属性为“重新选择”,在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入:
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
Label2.Caption =""如判断正误用的是方法一,此语句不要)
5. 下一题命令按钮
在幻灯片适当地方插入一命令按钮,修改其Caption属性为“下一题”,在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入
If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=vbYes Then
With SlideShowWindows(1).View
.GotoSlide 2
End With(2为第2张幻灯片,此语句表示转到第2张幻灯片)
End if
如果要根据条件的不同转到不同的幻灯片,可用下面语句:
if 条件 then
With SlideShowWindows(1).View
.GotoSlide 2
End With
End if
说明:条件可以是Caption属性或value属性,书写方法为:控件名称(在VBA中的名称).属性=(value属性为True或False,Caption属性为具体文本,注意文本要加双引号),例如下面的语句:
if optionbutton1.value=true then
表示如果单选框1的value值为True,那么运行then后的语句,一直到end if。
判断题的制作
所有的设置与单选题类似,只不过是设计两个选项“√”和“×”,这两个符号可先在Word中插入,然后再复制过来。
- 用PowerPoint中的VBA实现课件中的智能交互
- 如何解决PowerPoint课件中的菜单问题
- 用VBA去操作PowerPoint
- PowerPoint用VBA添加背景图片
- cad vba中的权限实现
- VBA 实现 POWERPOINT 的TIMER 事件
- 【VBA研究】用VBA实现excel与Oracle数据库交互
- PowerPoint课件制作技巧
- c++中的智能指针实现
- PowerPoint在企业管理中的应用
- powerpoint中的自动缩略图效果
- flash快速引入powerpoint课件
- PowerPoint课件制作技巧集锦
- PowerPoint课件发布全攻略
- Some PowerPoint VBA Tips
- PowerPoint VBA参考教程
- 用VBA实现excel与access数据库交互
- 用vba删除Excel中的超连接
- SQL SERVER中一些常见性能问题的总结
- ASP与存储过程
- System.getProperty()参数
- 随机取出数据库n条记录
- 笔记本关键字:IEEE1394接口
- 用PowerPoint中的VBA实现课件中的智能交互
- php的几个配置文件函数
- 刘天明的blog开张了
- ISA中为DMZ网段启用DHCP中继一(图)
- 在struts中,返回错误信息,出现乱码
- ISA中为DMZ网段启用DHCP中继二(图)
- 用COM自动服务扩展SQL Server功能
- 有效防范网内非法DHCP服务器妙招儿
- 楼主在此系列