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

合集下载

PPT中用代码打造选择题

代码与下：Dim arr(1 To 10, 1 To 5) As String’定义二维文本数组，用于存放第1题到第10题：题目和ABCD四个待选答案。

Dim ls, zq As String’临时文本（用于随机调整四个备选答案顺序）和正确文本。

Dim a, b, c’定义三个计算器。

Private Sub CommandButton5_Click()’复位或者下一题按钮。

Label6.Caption = "" ’正确统计清0。

If a = 0 Thenarr(1, 1) = "1+1"arr(1, 2) = "2"arr(1, 3) = "3"arr(1, 4) = "4"arr(1, 5) = "5"arr(2, 1) = "１+3" arr(2, 2) = "4"arr(2, 3) = "5"arr(2, 4) = "7"arr(2, 5) = "3"arr(3, 1) = "3+4"arr(3, 2) = "7"arr(3, 3) = "6"arr(3, 4) = "9"arr(3, 5) = "5"arr(4, 1) = "5+4"arr(4, 2) = "9"arr(4, 3) = "10"arr(4, 4) = "11"arr(4, 5) = "8"arr(5, 1) = "2+7"arr(5, 2) = "9"arr(5, 3) = "8"arr(5, 4) = "10"arr(5, 5) = "7"arr(6, 1) = "3+5"arr(6, 2) = "8"arr(6, 3) = "7"arr(6, 4) = "9"arr(6, 5) = "10"arr(7, 1) = "7+4"arr(7, 2) = "11"arr(7, 3) = "12"arr(7, 4) = "10"arr(7, 5) = "9"arr(8, 1) = "8+4"arr(8, 2) = "12 "arr(8, 3) = "13"arr(8, 4) = "10"arr(8, 5) = "11"arr(9, 1) = "9+3"arr(9, 2) = "12"arr(9, 3) = "11"arr(9, 4) = "13"arr(9, 5) = "14"arr(10, 1) = "6+2"arr(10, 2) = "8"arr(10, 3) = "9"arr(10, 4) = "10"arr(10, 5) = "7"End Ifa = a + 1If a = 11 ThenCommandButton5.Caption = "重新开始" Label1.Caption = ""Label2.Caption = ""Label3.Caption = ""Label4.Caption = ""Label5.Caption = ""a = 0c = 0Label7.Caption = ""ElseCommandButton1.Caption = "A" CommandButton2.Caption = "B" CommandButton3.Caption = "C" CommandButton4.Caption = "D" CommandButton5.Caption = "下一题" Randomize (Timer)b = Int(3 * Rnd + 3)ls = arr(a, 3)arr(a, 3) = arr(a, b)arr(a, b) = lsb = Int(4 * Rnd + 2)ls = arr(a, 2)arr(a, 2) = arr(a, b)arr(a, b) = lsLabel1.Caption = arr(a, 1)Label2.Caption = "A、" & arr(a, 2) Label3.Caption = "B、" & arr(a, 3) Label4.Caption = "C、" & arr(a, 4) Label5.Caption = "D、" & arr(a, 5)If b = 2 Then zq = "A"If b = 3 Then zq = "B"If b = 4 Then zq = "C"If b = 5 Then zq = "D"End IfEnd SubPrivate Sub CommandButton1_Click() If CommandButton1.Caption = "A" Then If zq = "A" ThenCommandButton1.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton1.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton2.Caption = "" CommandButton3.Caption = "" CommandButton4.Caption = ""End IfEnd SubPrivate Sub CommandButton2_Click() If CommandButton2.Caption = "B" Then If zq = "B" ThenCommandButton2.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton2.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton1.Caption = "" CommandButton3.Caption = "" CommandButton4.Caption = ""End IfEnd SubPrivate Sub CommandButton3_Click() If CommandButton3.Caption = "C" Then If zq = "C" ThenCommandButton3.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton3.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton2.Caption = "" CommandButton1.Caption = "" CommandButton4.Caption = ""End IfEnd SubPrivate Sub CommandButton4_Click() If CommandButton4.Caption = "D" Then If zq = "D" ThenCommandButton4.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton4.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton2.Caption = "" CommandButton3.Caption = "" CommandButton1.Caption = ""End IfEnd Subarr(2, 4) = "7"arr(2, 5) = "3"arr(3, 1) = "3+4"arr(3, 2) = "7"arr(3, 3) = "6"arr(3, 4) = "9"arr(3, 5) = "5"arr(4, 1) = "5+4"arr(4, 2) = "9"arr(4, 3) = "10"arr(4, 4) = "11"arr(4, 5) = "8"arr(5, 1) = "2+7"arr(5, 2) = "9"arr(5, 3) = "8"arr(5, 4) = "10"arr(5, 5) = "7"arr(6, 1) = "3+5"arr(6, 2) = "8"arr(6, 3) = "7"arr(6, 4) = "9"arr(6, 5) = "10"arr(7, 1) = "7+4"arr(7, 2) = "11"arr(7, 3) = "12"arr(7, 4) = "10"arr(7, 5) = "9"arr(8, 1) = "8+4"arr(8, 2) = "12 "arr(8, 3) = "13"arr(8, 4) = "10"arr(8, 5) = "11"arr(9, 1) = "9+3"arr(9, 2) = "12"arr(9, 3) = "11"arr(9, 4) = "13"arr(9, 5) = "14"arr(10, 1) = "6+2"arr(10, 2) = "8"arr(10, 3) = "9"arr(10, 4) = "10"arr(10, 5) = "7"End Ifa = a + 1If a = 11 ThenCommandButton5.Caption = "重新开始" Label1.Caption = ""Label2.Caption = ""Label3.Caption = ""Label4.Caption = ""Label5.Caption = ""a = 0c = 0Label7.Caption = ""ElseCommandButton1.Caption = "A" CommandButton2.Caption = "B" CommandButton3.Caption = "C" CommandButton4.Caption = "D" CommandButton5.Caption = "下一题" Randomize (Timer)b = Int(3 * Rnd + 3)ls = arr(a, 3)arr(a, 3) = arr(a, b)arr(a, b) = lsb = Int(4 * Rnd + 2)ls = arr(a, 2)arr(a, 2) = arr(a, b)arr(a, b) = lsLabel1.Caption = arr(a, 1)Label2.Caption = "A、" & arr(a, 2) Label3.Caption = "B、" & arr(a, 3) Label4.Caption = "C、" & arr(a, 4) Label5.Caption = "D、" & arr(a, 5)If b = 2 Then zq = "A"If b = 3 Then zq = "B"If b = 4 Then zq = "C"If b = 5 Then zq = "D"End IfEnd SubPrivate Sub CommandButton3_Click() If CommandButton3.Caption = "C" Then If zq = "C" ThenCommandButton3.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton3.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton2.Caption = "" CommandButton1.Caption = "" CommandButton4.Caption = ""End IfEnd SubPrivate Sub CommandButton4_Click() If CommandButton4.Caption = "D" Then If zq = "D" ThenCommandButton4.Caption = "正确！"c = c + 1Label7.Caption = "答对：" & cElseCommandButton4.Caption = "错误！" Label6.Caption = "正确答案：" & zq End IfCommandButton2.Caption = "" CommandButton3.Caption = "" CommandButton1.Caption = ""End IfEnd Sub。

在PowerPoint制作单多项选择题、是非判断题及填空题

在PowerPoint制作单多项选择题、是非判断题及填空题Powerpoint/ppt"ppt使用技巧"——用PowerPoint 2007可以方便迅速地做出演示型课件。

但上课是需要交互的，即使是简单的单项选择题或者是非判断题也应该要根据学生们的选择在课件中做出相应的反应的。

下面我们用PowerPoint 2007制作简单的交互式练习题。

一、用到的控件属性先点击PowerPoint左上角“Office选项”按钮，在弹出的菜单中点击右下角“PowerPoint选项”按钮，在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。

完成后就可以在功能区添加“开发工具”选项卡了。

点击“开发工具”选项卡，“控件”功能组中相关按钮就是我们要用的主要控件了，如图1所示。

以单选框为例，点击该单选框按钮，然后在幻灯片上单击，就可以产生一个单选项。

选中它，点击右键，在弹出菜单中选择“属性”命令，或者点击“开发工具”选项卡“控件”功能组中“属性”按钮，可以打开“属性”对话框。

在其中的“Caption”输入框中输入我们所需要的内容，就可以做出适合我们的单选项了。

单击“BackStyle”项目，然后在右侧的下拉列表中选择“0-fmBackStyleTransparent”，可以使做出的单选项背景透明。

点击“Font”输入框，然后单击出现的按钮，可以设置字体、字号等格式。

点击“Forecolor”输入框，则可以设置颜色。

如图2所示。

其它几个控件“属性”设置基本与此类似，不再罗嗦。

二、单项选择题题目的题干部份可以用插入文本框的方法输入。

然后用单选框做好四个选项。

可以在做好一个以后，复制得到其它三个。

只需要修改属性中的“Caption”即可。

完成后，按住“Shift”键依次选中它们，然后点击功能区“开始”选项卡“绘图”功能组中“排列”按钮下的小三角形，在弹出的菜单中选择相应命令将它们对齐并分布均匀，如图3所示。

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

PPT用VBA制作简单的选择题的方法及源码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则相反。

VBA中的操作PowerPoint幻灯片的方法

VBA中的操作PowerPoint幻灯片的方法PowerPoint是一款常用的演示文稿制作工具，广泛应用于商务、教育和其他领域。

在VBA编程中，我们可以利用PowerPoint对象模型来操作PowerPoint幻灯片，实现自动化的幻灯片制作。

在本文中，我们将介绍一些常用的VBA操作PowerPoint幻灯片的方法，帮助读者更好地理解和应用VBA编程技术。

1. 打开一个幻灯片文件要打开一个已有的PowerPoint幻灯片文件，我们可以使用以下代码：```Dim pptApp As ObjectDim pptPres As ObjectSet pptApp = CreateObject("PowerPoint.Application")Set pptPres = pptApp.Presentations.Open("C:\Path\to\file.pptx")pptApp.Visible = True '显示PowerPoint应用程序窗口```在以上代码中，我们首先创建了一个PowerPoint应用程序对象pptApp，然后使用Open方法打开指定路径下的幻灯片文件。

最后，我们将PowerPoint应用程序窗口显示出来。

2. 创建一个新的幻灯片文件如果需要创建一个新的幻灯片文件，我们可以使用以下代码：```Dim pptApp As ObjectDim pptPres As ObjectDim pptSlide As ObjectSet pptApp = CreateObject("PowerPoint.Application")Set pptPres = pptApp.Presentations.Add '创建一个新的幻灯片文件Set pptSlide = pptPres.Slides.Add(1, 12) '在第1张幻灯片后面添加一张幻灯片pptApp.Visible = True '显示PowerPoint应用程序窗口```在以上代码中，我们首先创建了一个PowerPoint应用程序对象pptApp，然后使用Add方法创建一个新的幻灯片文件。

用PPT控件VBA制作课件练习题的教学

用PPT控件VBA制作课件练习题的教学作者：周体强来源：《科学与财富》2018年第34期摘要：教学中引导学生用PPT控件VBA制作课件练习题，能提高课件交互性，进而提高教学效果。

关键词：PPT；课件；控件VBA；教学PowerPoint是一个广泛应用于多媒体课件制作的软件，具有交互性的练习题制作，除了单选题能用动画触发器制作，其他题型只能用控件VBA来制作，但在PPT中它是一个难点，在教学中如何使学生更好理解和掌握此方法，下面谈谈一些做法。

1步步引导说明使用条件⑴要添加控件，就要显示控件选项卡，即显示“开发工具”选项卡。

方法：选择“文件→选项→自定义功能区→勾选‘开发工具’选项→确定”。

⑵打开使用了控件VBA的PPT文件，演示用默认保存PPTX格式，软件会提示：“以下功能不能保存在未启用宏的演示文稿中.Visual Basic for Applications（VBA）项目，若要使保存的文件具有这些功能，请单击“否”，返回“另存为”对话框，然后在“文件类型”下拉框中选择一种启用宏的文件类型。

是否继续将此文件保存为未启用宏的演示文稿？”，先选择“是”，再次打开演示文稿，播放可见VBA功能失效，查看VBA代码消失，说明使用控件VBA，要保存为“启用宏的演示文稿”格式。

⑶打开保存“启用宏的演示文稿”格式演示文稿，会显示“安全警告：部分活动内容已被禁用”并显示“启用内容”按钮。

如果不启用，运行时会再次提示启用宏，不启用则VBA功能失效，单击“启用内容”VBA才能起作用。

引导得出选择“开发工具/宏安全性”→选“启用所有的宏”，则不会再提示。

2类比法教学练习题的制作⑴先用文本框输入题目和答案（A…、B…、C…、D…），用空格调整放置位置。

⑵首先单击选择控件，在相应位置（答案A或填空处）拖动鼠标绘制控件（选项按钮、复选框，填空处绘制文本框），合适位置绘制一个命令按钮。

介绍相应控件功能：文本框（Text Box）：可输入文本填空，用于设计填空题。

PPT随机抽题系统(附vba代码)

PPT随机抽题系统(附 VBA代码)
目录
• 系统概述 • 系统设计 • 系统操作流程 • 系统维护与更新 • 常见问题与解决方案 • 案例分享与实际应用
01
系统概T随机抽题系统是一个基于 PowerPoint平台开发的自动化工具，用于在演示文稿中随机抽取预设题目并展示给观众。
企业培训考核应用案例
案例概述
在企业培训考核中，PPT随机抽题系统可以用于检验员工的学习成果和技能掌握情况。
实现方式
根据培训内容和要求，制作相应的PPT和题库，通过VBA代码实现随机抽题和自动评分功能。
优势特点
能够快速有效地检验员工的学习成果，提高培训效果和员工参与度，为企业提供客观准确的考核数据。
02
系统设计
数据库设计
数据库类型
选择合适的关系型数据库，如Microsoft SQL Server 或MySQL，用于存储题库和用户信息。
数据表设计
设计包含题目信息、用户信息等数据表，并定义主键、外键等关系。
字段设计
根据需求定义数据表的字段，如题目ID、题目内容、答案等。
用户界面设计
网络在线答题应用案例
案例概述
01
在网络在线答题应用中，PPT随机抽题系统可以用于各种知识竞
赛、趣味答题等活动。
实现方式
02
利用PPT的分享功能，将带有随机抽题系统的PPT分享到网络平
台，参与者通过在线答题参与活动。
优势特点
03
能够吸引大量参与者、提高活动的趣味性和互动性，同时保证
答题的公正性和客观性。
THANKS FOR WATCHING
感谢您的观看
通过VBA代码实现用户登录和身份验证功能，确保系统安全性。

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

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 则相反。

PowerPoint中利用VBA制作制作智能课件 - 办公软件

一、基本构想
图1
本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。
3、在放映过程中，如果需要临时跳到某一张幻灯片，如准备直接跳到第8张幻灯片，只需按一下数字键“8”(最好按键盘上三排字母键上边的那排数字键，不要使用键盘右边的“数字小键盘”，因为“数字小键盘”受“Num Lock”键控制有两种状态，一种是作数字键使用，一种是当光标键使用。)，然后再按一下回车键就可以了。
6、在放映过程中，如果需要临时对演示内容进行圈点和批注，可以先用一只手的一个手指按住一个“Ctrl”键，再用另一只的一个手指按一下字母“P”键，最后把“Ctrl”键放开(这样就转成了绘图笔指针了)，这时就可以按住鼠标左键进行圈点、写字、画画了，如果圈点错了，还可以按一下象板擦的字母“E”键擦掉重来，如果想接着演示下边的内容，可以先用一只手的一个手指按住一个“Ctrl”键，再用另一只手的一个手指按一下字母“A”键，最后把“Ctrl”键放开(这样就又转成了箭头指针了)。如果临时要板书几个字或手工画一个简单图形，可以按一下字母“W”键或“，”(逗号)键，把屏幕切入“白板”状态，再利用前面的方法，转换为“绘图笔指针”，错了也可以用字母“E”键擦掉重来，最后也别忘了再转换成“箭头指针”。
basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2)
as integer”。

用PPT(幻灯片)VBA制作的交互式单项选择题和多项选择题并计算得分电子教案

A 3+3=9
A 3+3=6
A 苹果
B 太阳从东方升起
B
太阳从东方升起
B 马铃薯
C 5-2=7
C 5-2=3
C 辣椒
D 太阳从西方升起
D 太阳从西方升起
D 冬瓜
判断
重选
得分
40 温心提示：若没有效果，请启动
“宏”：工具/宏/安全性/安全级/勾选“中”/确定，然后重新打开幻片,点“启用宏”（文利制作）
多项选择题:
1、下列语句正确的有：
2、下列语句错误的有：
太阳从东方升起 3+4=12
一天36小时本人姓黄
判断
重选
我是中国人 3×4=12
判断

一天36小时香蕉是蔬菜
重选
显示帮助
您的名字
下一题
2分钟倒记时
单项选择题:
1、下列描述正确的是：( B ) 2、下列描述不正确的是：( C ) 3、下列哪个是水果：( C )

VBA实现自动化PPT制作与演示的步骤与技巧

VBA实现自动化PPT制作与演示的步骤与技巧在现代商务和教育领域中，演示文稿是一种常见而重要的工具。

而VBA（Visual Basic for Applications）是一种编程语言，可用于在Microsoft Office应用程序中自动执行任务。

结合VBA和PPT，我们可以实现自动化PPT制作与演示，提高工作效率和节省时间。

本文将介绍VBA实现自动化PPT制作与演示的一些步骤与技巧。

第一步：准备工作在开始之前，我们需要确保已经安装了Microsoft Office套件，并且已经打开了需要使用的PowerPoint文档。

然后，我们需要打开VBA编辑器，通过按下"Alt + F11"来快速打开。

第二步：了解PPT对象模型在使用VBA之前，我们需要了解PPT对象模型，这是PPT的编程接口。

幸运的是，PPT的对象模型类似于其他Microsoft Office应用程序（如Word和Excel）。

通过熟悉对象层次结构和方法，我们可以更好地理解如何使用VBA来操作PPT。

第三步：自动创建演示文稿通过VBA，我们可以自动创建一个新的演示文稿。

以下是一个简单的VBA代码示例，用于创建一个新的演示文稿并添加一张空白幻灯片：```vbaSub CreateNewPresentation()Dim PPTApp As PowerPoint.ApplicationDim PPTPres As PowerPoint.PresentationDim PPTSlide As PowerPoint.Slide' 创建一个新的PowerPoint应用程序Set PPTApp = New PowerPoint.Application' 创建一个新的演示文稿Set PPTPres = PPTApp.Presentations.Add' 添加一张空白幻灯片Set PPTSlide = PPTPres.Slides.Add(1, ppLayoutBlank)' 显示PowerPoint应用程序PPTApp.Visible = True' 清除对象引用Set PPTSlide = NothingSet PPTPres = NothingSet PPTApp = NothingEnd Sub```第四步：自动添加文本和图片除了创建幻灯片之外，我们还可以使用VBA自动添加文本和图片。

用VBA实现PPT中的交互功能

交互性对话框的设置
在这两段代码中间插入代码：
MsgBox ("恭喜您，答对了!")
*设置提示框及提示信息的*
msgbox是一个在VB里弹出一个对话框的函数பைடு நூலகம்
❖ 在 MsgBox (“恭喜您，答对了!”) 后面再加入新代码
OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False
❖ （4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；
三、实例讲解：
1、利用单选框（OptionButton）做单项选择题
➢ 在PPT中输入题干：
➢ 用单选框（OptionButton）控件制作选项
❖ （OptionButton）控件属性设置：
❖ AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示单选框为固定大小；
高度和宽度自己拖曳鼠标来定） Value：单选框的值，True为选中，False则相反。
交互性对话框的设置
❖ 选中代表正确答案的那个单选项“A 8 ”，点击右键，在弹出菜单中选择“查看代码”命令，在打开的窗口中找到
Private Sub OptionButton1_Click()
End Sub
一、显示控件工具箱
❖ 在PowerPoint中选择菜单“视图/工具栏/控件工具箱”
二、控件工具箱中常用按钮的介绍
❖ （1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；
❖ （2）文本框（TextBox）：可以输入文本，常用来设计填空题；

交互填空题技巧PPT(选择题

2.用VBA法做一多选题
Powerpoint制作选择、填空题技巧
教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢？如何利用 PowerPoint2003的动画触发器和 VBA功能来实现？
1.触发器做填空题

第一步：打开PowerPoint 2003（其它版本操作类似），先建立一个空白幻灯片，然后单击“插入”→“文本框”→“水平”命令，插入一个文本框，接着在文本框中输入第一道题的题目，按照同样的方法再插入一个文本框，输入题目的正确答案并设计好字体的颜色。
（播放时需启用宏---单击“视图”选项卡，
在工具栏的VB最左边有一个“运行宏”的图标。选择运行即可。若没有宏，则创建一个，再运行，另存为加载宏）
4.VBA法来做选择题
题干(一般用普通文本框)
选项按纽（optionButton一般有
ABCD四个选项）命令按纽（commandButton一般有 “查看结果”和“进入下一张”两个）都可以添加代码（不能正常播放时需启用宏）
1.制作试题：用文本框输入填空题的题目题干内容。再点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。单击工具条上的 “文本框”按钮，在填空题的空格处拖拉出一个控件文本框（供写答案）。
交互式课件示例
单选题示例：
世界上第一台计算机ENIAC诞生在：
确定
多选题示例：
著名导演张艺谋执导的电影有：

4.效果预览：制作完成了，赶快按下F5功能键来看一下效果吧（播放时需启用宏）
小提示:VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框” 属性对话框，选中“font”选项，然后点击后面的“…”号，即可打开“字体”对话框设置字体等。

VBA实现自动化PPT模板制作与设计的步骤与技巧

VBA实现自动化PPT模板制作与设计的步骤与技巧随着现代工作环境的不断演变和发展，PPT（Microsoft PowerPoint格式）已经成为商业演示、教育培训和信息传达的重要工具。

为了提高效率和准确性，许多人开始寻找自动化PPT模板制作与设计的方法。

VBA（Visual Basic for Applications）是Microsoft Office套件的一个强大工具，可以帮助我们实现自动化和自定义PPT模板的制作与设计。

本文将介绍使用VBA实现自动化PPT模板制作与设计的步骤与技巧。

第一步：了解VBA和PPT对象模型在开始之前，我们需要对VBA和PPT对象模型有一定的了解。

VBA是一种编程语言，用于操作和控制Microsoft Office应用程序中的各种对象。

而PPT对象模型则提供了一组与PPT文档、幻灯片、形状等相关的对象和属性。

深入了解VBA和PPT对象模型将使我们更好地掌握自动化PPT模板制作与设计的技巧。

第二步：创建PPT模板首先，打开PowerPoint并创建一个新的PPT文档。

接下来，我们可以开始设计和创建我们想要的PPT模板。

这包括选择合适的布局、添加背景、设置字体格式等。

在此过程中，我们可以手动完成设计，以便后续通过VBA进行自动化。

第三步：录制宏将要录制的宏步骤记住，单击“开发工具”选项卡中的“宏”按钮并选择开始录制。

在录制期间，按照你希望自动化的步骤进行操作。

例如，你可以在录制期间添加文本框、插入图片和设置动画效果等。

完成后，点击停止录制按钮。

第四步：编辑宏代码录制成功后，系统会生成对应的VBA代码。

你可以点击“开发工具”选项卡中的“Visual Basic”按钮来编辑宏代码。

在宏代码窗口中，你可以看到录制的每个步骤所对应的VBA代码。

通过对代码进行编辑和改进，我们可以实现更高级的自动化任务。

第五步：自定义VBA代码根据我们的需求，我们可以进一步自定义VBA代码以实现更复杂的自动化任务。

PPT中VBA编程制作随机抽题系统

本栏目责任编辑：王力计算机教学与教育信息化PPT 中VBA 编程制作随机抽题系统侯伟，吴锦杨*，袁龙华（湖南工学院材料与化学工程学院，湖南衡阳421002）摘要：本随机抽题系统以毕业答辩为例结合VBA 编程和微信公众号互联网技术，改变了传统活动现场环节中的纸质化抽签及抽题的形式，同时还具有答题倒计时功能。

本随机抽题系统可适用于毕业答辩、课堂教学互动、晚会现场抽奖、教学知识竞赛、面试随机抽题等需要随机抽签或抽题的场合。

该系统能够使每一位在场用户通过投影仪屏幕同时看到随机所抽题目，相比传统纸质抽题更公平公正。

关键词：VBA 编程；随机抽题；随机抽签；微信公众号；倒计时中图分类号：TP37文献标识码：A文章编号：1009-3044(2016)30-0100-031背景意义随着电子行业的突飞猛进，计算机及其应用软件走进了人们的生活，我们应该充分利用电子产品资源。

例如，在高校毕业答辩、研究生入学面试等各个抽题环节中一般采用纸质化抽题，这样不仅浪费纸张、浪费碳粉，同时打印机在打印过程中所消耗电能以及微细碳粉对环境产生的危害也不可忽视。

我国仍有大部分地区实行火力发电，需要消耗煤炭，而纸张来源于树皮，这些纸张、电能的消耗都间接导致温室效应，不符合国家长期发展的要求。

通过微信公众号，学生在答辩环节中还可以参与投票表决互动，选出自己认为最佳答辩毕业生。

在高校研究生面试、企业面试、教学知识竞赛、晚会比赛等活动中，通过使用本系统中引用的二维码技术仍然可以满足不同用户的需求。

2技术方案本随机抽题软件可根据参赛选手总人数，自动设置抽签数量，参赛选手只需要点击“开始抽签”控制按钮便可随机滚动生成签号，此时系统状态输出显示器会显示“正在抽签”，点击“停止抽签”控制按钮即可获得自己的抽签结果，此时系统状态输出显示器会显示“您抽的是×号签”。

参赛选手点击“开始抽题”控制按钮时便可高速滚动显示题目编号，此时系统状态输出显示器会显示“正在抽题”，参赛选手点击“停止抽题”控制按钮即可随机不重复获得一个题目编号，此时系统状态输出显示器会显示“请您回答×号题”。

任务2 电子考卷制作步骤

任务 2 电子考卷制作微软开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application（VBA ），VBA 是非常流行的应用程序开发语言。

在PowerPoint 中使用VBA 制作简易的电子考卷并不难。

下面就来介绍如何在PowerPoint 中制作电子考卷。

电子考卷制作，可以分成三部分完成：第一部分为试卷头的制作，第二部分为试题的制作，第三部分为制作交卷页。

1．试卷头的制作①新建一个PowerPoint 文档，从右边“幻灯片版式”任务窗格中，选择一个空白版式幻灯片，保存为“试卷制作.ppt”。

②为了保证VBA 能够正常运行，选择“工具｜宏｜安全性” 命令，在弹出的“安全性”对话框中选择“安全级”选项卡，选择“低”单选按钮，如图所示，单击“ 确定”按钮。

③选择“视图｜工具栏｜控件工具箱”命令，调出控件工具箱，如图2-3-2 所示。

④单击“ 控件工具箱”中的“命令按钮”，并在空白幻灯片上拖出一个按钮“Command Button1”（命令按钮），右击，在弹出的快捷菜单中选择“属性”命令，如图所示。

⑤在弹出的“ 属性”面板中将“CommandBu tton1”属性框中的Caption （标题）属性改为“单击输入学生姓名”；设置按钮背景颜色BackColor 为“&H80000010&”，如图2-3-4 所示。

⑥为了能记录考生做各个题目的答案并统计其得分，应定义公用变量和数组，双击“ 单击输入学生姓名”按钮，进入VBA 代码编写窗口，选择“插入｜模块”命令，在模块编辑窗口中输入以下代码：Public xm As StringPublic aw(50) As StringPublic sm(50) As Integer如图2- 3-5 所示，其中xm 变量用于记录考生姓名，数组aw(50)用于记录考生各题所选择的答案，s m(50)数组用于记录各个答案的得分。

1如何用PPT制作互动式选择题

1如何用PPT制作互动式选择题2用VBA辅助制作填空题教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。

如何用PPT制作好的练习题呢?看看我是如何利用PowerPoint2007 的动画触发器和VBA 功能来实现的吧。

我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。

一、触发器做单选以一道选择题为例，启动PowerPoint2007，新建一空白幻灯片，利用文本框，输入题干内容。

点击“幻灯片放映→动作按钮”，选中“动作按钮：自定义”选项，然后在PPT中画出一个按钮。

1.制作模板：右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上添加第一个备选答案(如“A、170克/摩尔”)，并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。

2.复制试题：选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮(共操作3次，复制3个)，并修改字符为其他备选项答案。

3.添加答案：插入文本框，并输入“正确、错误”及相关提示的字符(如“错误!”)，并设置好字体、字号、字符颜色等。

4.设置交互：选中这个文本框，执行“幻灯片放映→自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入→飞入”选项;再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，在“自定义动画”选择“飞入”，打开“飞入”对话框，切换到“及时” 标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“动作按钮：自定义2……”选项(即第一个备选答案对应的“动作按钮”项)，“确定”返回。

5.制作完成：按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。

二、VBA法来填空上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。

1.制作试题：用文本框输入填空题的题目内容，点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。

第7章程序VB选择结构程序设计ppt课件

7.2 Select Case语句
注1：测试表达式可以是数值或字符串表达式；注2：各表达式列表合法的格式：
①一个常量或常量表达式 ②多个常量或常量表达式，用逗号隔开，逗号相当于“或” ，如：
Case 1，3，5，7 ③表达式1 to 表达式2，表示从表达式1到表达式2中所有的值，其中
表达式1的值必须小于表达式2的值。如：Case 1 to 5 ④Is关系运算表达式，可以使用的关系运算符为：>、>=、<、<=、
1. IIf函数
IIf函数实际上是If…Then…Else结构的一个简写 IIf函数中后两个表达式可以是各种类型的表达式，也可以是一个IIf函数的调用
①Print x & IIf(x > 0, “大于0”, “小于或小于0”) ②s = IIf(x > 0, 1, IIf(x = 0, 0, -1))
<>、=，不可以使用逻辑运算符表示多个范围。 ⑤ 前面四种情况的组合，如Case Is>10,2,4,6,Is <0
注3：若有多个Case表达式符合条件，则只执行第一个符合的Case下的语句体。
1. IIf函数 *2. Switch函数
1. IIf函数
格式：
IIf(条件表达式，条件为True时的表达式，条件为False 时的表达式)
功能：
根据条件表达式的值，确定函数返回后面两个表达式的其中一个的值。
If a>b Then max=a
Else max=b
End If
max= IIf ( a>b , a , b )
例7-4
程序代码如下：
Private Sub Command1_Click()

vba of ppt

Sub Macro1()选中物体ActiveWindow.Selection.SlideRange.Shapes("Object 4").SelectActiveWindow.Selection.UnselectSub Macro2()切换到第二个幻灯片ActivePresentation.Slides.Range(Array(2)).Select ActiveWindow.View.GotoSlide Index:=2End SubSub Macro3()颜色.Fill.Visible = msoTrue(msotrue=1.Fill.SolidEnd WithEnd SubSub Macro4()线条.Line.Weight = 1.75End WithEnd SubSub Macro5()尺寸End WithEnd SubSub Macro6()位置With ActiveWindow.Selection.ShapeRange.Fill.Transparency = 0#.Left = 141.62.Top = 553.75End WithEnd SubSub Macro7()图片公式的黑白ActiveWindow.Selection.SlideRange.Shapes("object 13").SelectWith ActiveWindow.Selection.ShapeRange.Fill.Transparency = 0#.PictureFormat.Brightness = 0# （）End WithEnd SubSub Macro8()文本框例子ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 76.5, 264.375, 504.625, 28.875).SelectActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationVerticalFa rEast, 425.875, 105.625, 36.125, 323.125).SelectActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrueLength:=0).Select.Text = "123"With .Font.NameAscii = "Arial".NameFarEast = "宋体".NameOther = "Arial".Size = 18.Bold = msoFalse.Italic = msoFalse.Underline = msoFalseEnd WithEnd WithEnd SubSub Macro9()文本框例子2ActiveWindow.Selection.SlideRange.Shapes("Text Box 12").SelectWith ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Italic = msoTrue.Bold = msoTrue.Size = 48End withEnd SubSub Macro10()文本框中的文字ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.SelectLength:=7).SelectEnd SubSub Macro11()改变文本框中文字的属性ActiveWindow.Selection.SlideRange.Shapes("Text Box 12").Select ActiveWindow.Selection.TextRange.Font.Color.SchemeColor = ppForeground ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Italic = msoTrue ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Bold = msoTrue ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 48End SubSub Macro12()选中物体的移动With ActiveWindow.Selection.ShapeRange.IncrementLeft -17.IncrementTop 43.25End WithWith ActiveWindow.Selection.ShapeRange.IncrementLeft 90.62.IncrementTop -43.25End WithEnd SubSub Macro13()删除矩形框中的文字ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.SelectLength:=7).SelectActiveWindow.Selection.UnselectEnd SubSub Macro14()矩形框中添加文字ActiveWindow.Selection.SlideRange.Shapes("Rectangle 9").Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).SelectWith ActiveWindow.Selection.TextRange.Text = "123456"With .Font.NameAscii = "Arial".NameFarEast = "宋体".NameOther = "Arial".Size = 18.Bold = msoFalse.Italic = msoFalse.Underline = msoFalseEnd WithEnd WithEnd SubSub Macro15 ()改变矩形中文字的字体ActiveWindow.Selection.SlideRange.Shapes("Rectangle 9").Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=2, Length:=7).SelectActiveWindow.Selection.TextRange.Font.Size = 14ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=2, Length:=7).SelectActiveWindow.Selection.TextRange.Font.Underline = msoTrue ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=2, Length:=7).SelectActiveWindow.Selection.TextRange.Font.Italic = msoTrueActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=2, Length:=7).SelectActiveWindow.Selection.TextRange.Font.Bold = msoTrueEnd Sub。

利用VBA编程在PPT中轻松实现随机抽题与点名

利用VBA编程在PPT中轻松实现随机抽题与点名
高全学;薛启勋;姜英姿
【期刊名称】《电脑编程技巧与维护》
【年(卷),期】2016(000)021
【摘要】通过工作、生活中经常用到的随机抽题、点名功能的简单实现过程,展示VBA入门简单、功能强大的特点,旨在提高大家制作课件的水平及兴趣.
【总页数】4页(P20-23)
【作者】高全学;薛启勋;姜英姿
【作者单位】解放军第404医院,山东威海264200;解放军第404医院,山东威海264200;解放军第404医院,山东威海264200
【正文语种】中文
【相关文献】
1.利用VBA编程实现在ACAD中成批布置勘探点 [J], 耿宏斌
2.初中物理教学中利用"泰微课"轻松实现"翻转课堂"r——例析《长度和时间的测量》数字化资源的应用 [J], 刘亚群
3.PPT中VBA编程制作随机抽题系统 [J], 侯伟;吴锦杨;袁龙华
4.Word中利用“窗体”实现轻松输入 [J], 邹益民
5.利用Access和VBA编程实现医保变更业务中Word表格模板的批量打印 [J], 闫婷婷
因版权原因，仅展示原文概要，查看原文内容请购买。