前往顾页

用PowerPoint中的VBA实现课件中的智能交互

时候:2010-05-23 02:07来源:知行网www.zhixing123.cn 编辑:麦田守望者

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连接,表示同时满足这几个前提,比方第一、3、五的选项是精确的,则需求输入以下语句:

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中拔出,然后再复制过去。

------分开线----------------------------
标签(Tag):PowerPoint ppt技能 PowerPoint技能 ppt技术
------分开线----------------------------
保举内容
猜你感兴趣