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

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中插入，而后再复制过来

<