PPT用VBA制作简单的选择题的方法及源码2.doc

PPT用VBA制作简单的选择题的方法及源码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 subprivate 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 = falseoptionbutton2.value = falseoptionbutton3.value = falselabel2.caption =如判断正误用的是方法一，此语句不要）5 下一题命令按钮在幻灯片适当地方插入一命令按钮，修改其caption属性为“下一题”，在编辑窗口中的private sub commandbutton1_click()和end sub语句间插入if msgbox(是否继续, vbyesno + vbquestion, “下一题”)=vbyes thenwith slideshowwindows(1).view.gotoslide 2end with（2为第2张幻灯片，此语句表示转到第2张幻灯片）end if如果要根据条件的不同转到不同的幻灯片，可用下面语句：if 条件thenwith slideshowwindows(1).view.gotoslide 2end withend if说明：条件可以是caption属性或value属性，书写方法为：控件名称（在vba中的名称）.属性=（value属性为true或false，caption属性为具体文本，注意文本要加双引号），例如下面的语句：if optionbutton1.value=true then表示如果单选框1的value值为true，那么运行then后的语句，一直到end if。判断题的制作所有的设置与单选题类似，只不过是设计两个选项“”和“”，这两个符号可先在word中插入，然后再复制过来。一、基本构想图1本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。二、制作过程1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。图2其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。三、添加代码1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2) as integer”。2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入If ti2.Value = True Thenfen(0) = 2Elsefen(0) = 0End IfWith SlideShowWindows(1).View.GotoSlide (2)End With3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click()”和“End Sub”之间输入If ti3.Value = True Thenfen(1) = 2Elsefen(1) = 0End IfDim i, ss = 0For i = 0 To 2s = s + fen(i)Nextsum = s好了，退出“Microsoft visual basic”编辑器，按F5试一下效果吧，怎么样，是不是和原来设计的一样呢。用PPT2003制作课后练习题日期：2010-4-9 作者：ppt5u 本文可以学到1如何用PPT制作互动式选择题2用VBA辅助制作填空题教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢？看看我是如何利用 Powerpoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。一、触发器做单选以一道选择题为例，启动Powerpoint2003，新建一空白幻灯片，利用文本框，输入题干内容。点击“幻灯片放映动作按钮”，选中“动作按钮：自定义”选项，然后在PPT中画出一个按钮。1.制作模板：右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上添加第一个备选答案（如“A、170克/摩尔”），并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。2.复制试题：选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮（共操作3次，复制3个），并修改字符为其他备选项答案。3.添加答案：插入文本框，并输入“正确、错误”及相关提示的字符（如“错误！”），并设置好字体、字号、字符颜色等。4.设置交互：选中这个文本框，执行“幻灯片放映自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入飞入”选项；再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，在“自定义动画”选择“飞入”，打开“飞入”对话框，切换到“及时”标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“动作按钮：自定义2”选项（即第一个备选答案对应的“动作按钮”项），“确定”返回。5.制作完成：按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。二、VBA法来填空上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。1.制作试题：用文本框输入填空题的题目内容，点击“视图工具栏控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框。2.设置命令：单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“Caption”修改为“查看正确答案”（具体修改内容，请根据需要确定），并关闭属性窗口。3.插入代码：双击插入的命令按钮打开VBA编辑窗口，在“PrivateSubCommandButton1_Click()”和“EndSub”语句之间输入如下代码：IfTextBox1.Text=物理Thendd=MsgBox(你填对了,vbOKCancel,结果)Elsedd=MsgBox(你填错了,vbOKCancel,结果)EndIf4.效果预览：制作完成了，赶快按下F5功能键来看一下效果吧。小提示:VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“”号，即可打开“字体”对话框设置字体等。MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其他字母代码和文字代替。第三节 用 VBA 制作智能交互型的课件如果课件要求智能反馈，如填空题、选择题或判断题等，可利用控件搭建环境，利用 VBA 编程，来实现复杂的智能交互。一、 VBA 编程基础（一）常用控件的属性设置1. 复选框 （ CheckBox ）可以选择多个选项，常用来设计多选题；其属性设置：AutoSize ：有两个值， True 表示根据字的多少调整复选框大小， False 表示复选框为固定大小；BackColor ：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption ：控件的名称，把默认值删除后，再重新输入新名称；Font ：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中对字体格式设置；ForeColor ：设置字的颜色，设置方法同 BackColor ；Height ：复选框的高度，直接输入数字即可；Width ：复选框的宽度，直接输入数字即可；Value ：复选框的值， True 为选中，相反 False 则为未选中。2. 文本框 （ TextBox ）可以输入文本，常用来设计填空题；其 AutoSize 、 BackColor 、 Font 、 ForeColor 、 Height 、 Width 等属性的设置方法同复选框；Value ：文本框的值，用来保存输入的文本；TextAlign ：设置文本对齐方式。3. 命令按钮 （ CommandButton ）用来确定选择或输入，也可设计超级链接等；属性设置同复选框。4. 单选框 （ OptionButton ）只能选中一个选项，常用来设计单选题或判断题；除 Value 外，其他同复选框。5. 标签 （ Label ）用来显示文字信息。除 Value 外，其它同复选框。6. 消息框（ MsgBox ）常用消息框显示一些交互的信息，如图 10 - 29 所示的消息框用下面的语句可实现：MsgBox( ” 这是一个例题 ”,vbYesNo,” 示例 ”) 。图 10-29 用消息框显示交互信息（二） VBA 的编程环境双击幻灯片中的控件，或用菜单 “工具” - “宏” - “ Visual basic 编辑器”命令，即可进入 VBA 编程状态。进入 VBA 后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口， 按 F4 键即可调出该窗口。二、制作智能交互型的课件以制作单选题、选择题、判断题和填空题为例来介绍智能课件的制作方法。（一）单选题的制作图 10-30 单选题的运行界面1. 题目题目的输入可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签（第一个标签），插入后双击该标签启动 VBA ，修改 Caption 属性为“ 5X-15=0 的解是：”，再根据需要修改其他属性（如颜色等）。如图 10 - 30 所示。2. 答案选项插入一个单选框（第一个单选框），修改其 Caption 属性为“ A 3 ”，其他属性可自行修改。其他的单选项可复制制作好的单选框（第二、三和四个单选框），然后再分别修改它们的 Caption 属性为“ B 5 ”、“ C 11 ”和“ D 18 ”。3. “查看答案”命令按钮在此插入一个命令按钮（第一个命令按钮），我们可根据单选框的 Value 属性的值来判断答案，如正确选项（单选框）的 Value 的值为 True ，则为该题选择正确，否则为选择错误，另外还可根据选择正误来给出提示信息，有两种方法。（1）方法一用 MsgBox() ，如果选择正确，显示信息“ Very Good ！请继续！”，选择错误则显示“ Sorry ，你选错了！正确答案是 3 ，请继续努力。”具体操作步骤：双击单选框进入 VBA 编辑窗口，在编辑窗口中完成以下操作。如图 10-31 所示。1）在编辑窗口中找到如下两条语句： Private Sub OptionButton1_Click() 和 End Sub 语句。然后在上面这两条语句中间插入以下语句：If OptionButton1.Value=True Then ex=MsgBox(“Very Good ！请继续努力。 ”,vbOKOnly)2）同理，找到如下三组语句：第一组语句： Private Sub OptionButton2_Click() 和 End Sub ；第二组语句： Private Sub OptionButton3_Click() 和 End Sub ；第三组语句： Private Sub OptionButton4_Click() 和 End Sub 。在这三组的两条语句中间分别插入语句：If OptionButton2.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly)If OptionButton3.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly)If OptionButton4.Value=True Then ex=MsgBox(“ 正确答案是 3 ，请继续努力。 ”, vbOKOnly)说明： ex 为自定义变量图 10-31 方法 1 的代码编辑窗口（2）方法二在幻灯片合适的地方插入一个标签（第二个标签），修改其 Caption 属性为空，其他设置同方法一，只要把正确选项中的“ then ”后的语句名改为“ Label2.Caption=”Very Good! 请继续！ ” ”，三个错误选项的“ then ”分别改为“ Label2.Caption=” 正确答案是 3 ，请继续努力。 ” ”即可。图 10-32 方法2的代码编辑窗口4. “重新选择”命令按钮在幻灯片适当的地方插入一个命令按钮（第二个命令按钮），修改其 Caption 属性为“重新选择”，如图 10-33 所示。在编辑窗口中的 Private Sub CommandButton2_Click() 和 End Sub 语句间插入：OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseOptionButton4.Value = FalseLabel2.Caption =” / 如判断正误用的是方法一，此语句不要5. “下一题”命令按钮在幻灯片适当地方插入一个命令按钮（第三个命令按钮），修改其 Caption 属性为“下一题”，如图 10-33 所示。在编辑窗口中的 Private Sub CommandButton3_Click() 和 End Sub 语句间插入If MsgBox(“ 是否继续 ”, VbYesNo + VbQuestion, “ 下一题 ”)= VbYes ThenWith SlideShowWindows(1).View.GotoSlide 2End With /2 为第 2 张幻灯片，此语句表示转到第 2 张幻灯片End if图 10-33 “重新选择”和“下一题”命令按钮代码编辑窗口如果要根据条件的不同转到不同的幻灯片，可用下面语句：If 条件 thenWith SlideShowWindows(1).View.GotoSlide n /n 为第 n 张幻灯片，此语句表示转到第 n 张幻灯片End WithEnd if说明：条件可以是 Caption 属性或 Value 属性，书写方法为：控件名称 ( 在 VBA 中的名称 ). 属性 =(value 属性为 True 或 False ， Caption 属性为具体文本，注意文本要加双引号 ) ，例如下面的语句： If OptionButton1.Value=True thenEnd if表示如果单选框 1 的 Value 值为 True ，那么运行 then 后的语句，一直到 End if 。（二）多选题的制作题目的设计同单选题。答案选项用复选框（ CheckBox ），其他设置同单选题。“查看答案”命令按钮，因为是多选题，答案有多个，所以要书写多个条件，条件之间用 and 连接，表示同时满足这几个条件，比如第 1 、 3 选项是正确的，则需要输入如下语句：If CheckBox1.Value=True And CheckBox3.Value=True Then给出正确的提示信息同单选题Else给出错误的提示信息同单选题End if（三）判断题的制作所有的设置与单选题类似，只不过两个答案选项是“ ”和“ ”，这两个符号可先在 Word 中插入，然后再复制过来。（四）填空题的制作点击文本框控件，在幻灯片适当的位置拖拉鼠标得到合适大小的文本框。选中该文本框，右击选择“查看代码”命令，打开代码编辑窗口，点击右上方的下拉按钮，在弹出的下拉列表中选择“ LostFocus ”。这样当文本输入完成、鼠标离开这个文本框时，就会出现在下面设置好的反馈信息。如图 10 - 34 所示。在代码编辑窗口中找到这两条语句： Private Sub TextBox1_LostFocus() 和 End Sub 语句。在这两行语句中间插入如下代码：If TextBox1.Value =“李白” ThenMsgBox(“ 不错，你填对了。恭喜您！”, vbOKOnly ,“填空题”)ElseMsgBox(“不对吧？再想想，也许您就能想起正确答案呢！”,vbOKOnly,”填空题 ”)TextBox1.Text =“”End If说明：本例中这个填空题的正确答案就是“李白”，其它分别表示答对或答错时课件的反馈信息，制作中可以根据实际自行更改。如果有多个填空题，那么需要将上面代码中的 TextBox1 替换为 TextBox2 、 TextBox3 等，依此类推。利用控件工具箱，在 PowerPoint 中制作智能交互的课件以课堂练习题为例介绍，实际上还有很多的用途，在此不再累述。如果需要制作一份交互性的试卷，可以复制相应的代码，然后根据具体问题进行修改，这样可以在一定程度上减少工作量。制作完成后，可将 PowerPoint 保存成 PPS 格式文件，学生双击此文件即可运行，以避免学生对试题进行编辑。图 10-34 文本框代码编辑窗口附： 设置“文本框”属性。具体含义为： （名称）属性：可以使用自定义的字符串或由软件自动产生。AutoSize 属性：规定文本框对象是否自动调整大小以显示其完整的内容。AutoTab 属性设置为 True 时，才会自动按 Tab 键顺序接收焦点。Auto Word Select 属性：指定是采用单词还是采用字符，作为扩展选定内容的基本单元。BackColor 设置窗体背景颜色。单击右边向下箭头，弹出“调色板”与“系统”二个选顶卡。BackStyle 属性：返回或设置对象的背景方式。可取二个值： fmBackStyleTransparent （透明）与 fmBackStyleOpaque （不透明）BorderColor 属性：设置窗体对象的边框颜色。BorderStyle 属性：设置窗体的边框风格。DragBehavior 属性：指定系统是否允许在文本框中执行拖放功能。 fmDragBehaviorEnabled （允许） fmDragBehaviordisabled （不允许）Enabled 属性：设置控件是否可用，即是否响应用户的操作。EnterFieldBehavior 属性：指定进入文本框时的选择行为。可取 True 与 FalseEnterKeyBehavior 属性：定义在文本框中按下 Enter 键的结果，如果为 True ，按 Enter 键将创建一个新行；如果为 False ，按 Enter 键，将焦点移到 Tab 键顺序的下一个对象（默认）。Font 属性：用来设置文本框中文字的字体、字形、大小。ForeColor 属性：设置前景颜色，图与 BackColor 相同。Height 属性：用来表明对象的高度。HideSelection 属性：指定当控件没有焦点时被选定的文本是否保持突出显示。ImeMode 属性：获取或设置控件的输入法编辑器（ IME ）模式。 0-fmIMEModeNoControl 表示对输入法不加控制； 1-fmIMEModeOn 表示输入法处于打开状态； 2-fmIMEModeOff 表示输入法处于关闭状态； 7-fmIMEModeAlphaFull 表示输入处于全角状态； 8-fmIMEModeAlpha 表示输入处于半角状态； 11-fmIMEModeHanziFull 表示输入标点处于全角状态； 12-fmIMEModeHanzi 表示输入标点处于半角状态。IntegralHeight 属性：指定文本框是显示列表中全部文本行还是显示部分行。Left 属性：设置程序运行时窗体的水平位置。Locked 属性：设置文本框内容在运行时是否可以被用户编辑。设置 True 时，不能编辑。MaxLength 属性：规定用户可以在文本框或组合框中输入的最多字符数。若将 MaxLength 属性设置为 0 （默认值），表明只要内存允许则没有限制。MouseIcon 属性：为鼠标对象指定一个自定义的图标。要与 MousePointer 结合（取 99-fmMousePointerCustom ）才有效。MousePointer 属性：指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型。 0-fmMousePointerDefault （默认值）由对象决定的形状。 1-fmMousePointerArrow 箭头； 2-fmMousePointerCrosshair 十字（十字型光标指针）； 3-fmMousePointerIBeam I 型标； 4-fmMousePointerIconPointer 图标（在方块中的小方块）； 5-fmMousePointerSizePointer 大小（四向箭头指向上下左右）； 6-fmMousePointerSizeNESW 右上 - 左下大小（双向箭头分别指向右上和左下）； 7-fmMousePointerSizeNS 垂直大小（双向箭头分别指向上和下）； 8-fmMousePointerSizeNWSE 左上 - 右下大小（双向箭头分别指向左上和右下）； 9-fmMousePointerSizeWE 水平大小（双向箭头分别指向左和右）； 10-fmMousePointerUpArrow 向上箭头键； 11-fmMousePointerHourglass 沙漏（等待）； 12-fmMousePointerNoDrop 不允许放下； 13-fmMousePointerArrowHourglass 箭头和沙漏； 14-fmMousePointerArrowQuestion 箭头和问号； 15-fmMousePointerSizeAll 四向箭头； 99-fmMousePointerCustom 窗体内显示由 MouseIcon 属性指定的自定义图标。MultiLine 属性：设置控件是否可以接受多行文本。PasswordChar 属性：以特定的字符来代替控件中的文本字符，这个属性很适合设置密码对话框。ScrollBars 属性：利用滚动条来显示多行文字内容，其中 1-fmScrollBarsHorzontal 为水平滚动条； 2-fmScrollBarsVertical 为垂直滚动条； 3-fmScrollBarsBoth 为水平滚动条与垂直滚动条均存在，但要同时满足下列条件： AutoSize 设置为 False ； Word Wrap （含义见后面）设置为 False ；当文字不超出文本框时，滚动条设置无效；正处于文字编辑状态或放映状态； MultiLine 设置为 True 。SelectionMargin 属性：规定用户能否通过单击文本左边区域来选中一行。SpecialEffect 属性：指定对象的外观。 0-fmSpecialEffectFlat 正常，仅以框线或不同的色彩来区分。 Image 及 Label 的默认值都是如此，也可适用于其它控件。 1-fmSpecialEffectRaised 对象上缘及左缘反白，下缘及右缘有阴影； 2-fmSpecialEffectSunken 对象上缘及左缘有阴影，下缘及右缘反白，控件周围以框线与窗体区隔开； 3-fmSpecialEffectEtched 控件周围以框线与窗体区隔开； 6-fmSpecialEffectBump 对象下缘及右缘有突起，上缘及左缘则正常显示； TabKeyBehavior 属性：决定是否允许制表符出现在编辑区。Text 属性：设置控件中的文本。TextAlign 属性：定义控件中文本的对齐方式。 1-fmTextAlignLeft 左对齐； 2-fmTextAlignCenter 居中对齐； 3-fmTextAlignRight 右对齐。Top 属性：设置程序运行时文本框窗体的垂直位置Value 属性：定义某给定文本框控件的状态或内容。Visible 设置程序运行时窗体是否可见。当 Visible 为 False 时，窗体是不可见的。将值改为为 True 。运行时窗体就是可见的了。Width 设置文本框窗体的宽度。WordWrap 属性：指出一个控件的内容在行末是否自动换行。 PowerPoint中控件的应用 PowerPoint演示特效自行消失的字幕用VBA实现课件中的智能交互PPT课件制作 2008-10-11 16:15:01 阅读289 评论0 字号：大中小 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 SubPrivate 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 = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseLabel2.Caption =如判断正误用的是方法一，此语句不要）5 下一题命令按钮在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入If MsgBox(是否继续, vbYesNo + vbQuest