基于PPT实现随机点名交互性课件

向阳霞 陈建明 陆军装甲兵学院信息通信系

2020年春季学期，由于疫情的影响，教育部要求延期开学，并提出利用网络平台，“停课不停学”。在线教学使得师生基于互联网平台发生时空和教学分离，如何与传统线下授课一样进行有效互动，是教师面临的考验。PPT课件作为现代化教育的手段之一，如何更好地结合在线平台为教学服务？是每一位教师需要长期研究的内容。目前，多数教师把精力集中在软件本身的使用操作上，对图文、配色、动画等设计关注较少，对研究如何在PPT课件中进行开发辅助课堂教学管理工具的更是寥寥无几。下面，笔者以实现随机点名PPT课件为例进行介绍，阐述如何使用VBA（Visual Basic for Application）将PPT与Excel进行有机结合。

● 基于PPT实现随机点名交

互性课件的设计

1.开发环境

①操作系统WIN7以上版本（32/64位）；②OFFICE 2010（32位）版本。

2.功能设计

笔者设计的随机点名PPT课件，主要有两个功能：①随时点名。教师控制开始点名和结束点名的时机；点名开始时，从数据源中获取学生信息，文中采用Excel存储学生名单，然后通过随机函数进行计算，读取表格中的学生记录并显示，点名结束后，单击随机点名按钮，可进行下一次点名。②随机点名。通过PPT的母版功能，在幻灯片母版的标题内容页中设置按钮控件，放映时每一页都可以随时随机点名，在单击该按钮时，弹出点名对话框，显示当前点名信息，在当前窗体中，设置“关闭”按钮，结束本次点名，返回到正在放映的PPT页面，教师继续进行教学活动。

3.随机点名显示界面设计

VBA中的用户窗体就是指带UI的用户界面，包含文本框、复选框、单选按钮等控件。每一次点名获取到的学生信息，将在弹出的窗体中进行显示，以醒目的方式进行提示，增强与学生的互动性。

具体操作步骤如下：通过菜单“开发工具”中的“用户窗体”创建窗体，并进行界面设计，如图1所示，学生框中显示所读取的学生序号,姓名框中显示所读取的学生姓名,关闭按钮，停止点名，返回PPT页。

图1 界面设计

● 基于VBA编程的课堂随机

点名PPT课件的实现

1.创建PPT课件

创建自己的课件，该课件文件必须以“启用宏的演示文稿”保存，即后缀名为.pptm格式。pptm是启用了宏的文件，并且该文件只能用2007及以上版本的Office软件打开，如果用其他版本软件打开会出现无法编辑、图片不完整等问题。

2.在PPT中进行VBA编程

（1）VBA相关操作

VBA是一种完全面向对象体系结构的编程语言，VBA没有自己独立的工作环境，必须依附于主应用程序，如Microsoft Office软件，通过VBA可以实现各种Office软件操作的自动化。

为有效进行VBA进行开发，首先需要进行如下相关设置：①在PPT菜单中增加“开发工具”栏，为增加ActiveX控件和编写程序提供开发环境；②设置“启动所有宏”，开启宏功能，确保程序能正常运行。在Office中的宏是默认禁用的。

（2）在PPT母版中插入按钮控件

幻灯片母版是一类特殊幻灯片，它能控制基于它的所有幻灯片，对母版的任何修改都会体现在那些基于它的幻灯片上。因此，采用母版来进行制作，提高了工作效率。母版主要分为主题页和标题页、标题内容页，通常包含一些共有信息，如背景、配色方案、字体等。

通过“开发工具”菜单，笔者在PPT母版的标题内容页中插入“随机点名”按钮控件，注意必须在母版中进行增加，以达到每页都能随时点名的效果，并且在母版中可以调整按钮的位置，以适应自己的PPT课件内容。

3.创建数据源

笔者采用Excel作为数据源，在工作簿中用来处理和存储数据，保存文件后缀名为.xlxs或.xls，并确保文件名为英文，否则获取失败。使用Excel存储文件的目的：

①可以直接使用现有的学生名单，提高已有资源的利用率，降低开发难度；②与PPT连接简单方便，提高开发效率。

（1）设计表结构

学生名单表中包含多列数据，如学号、姓名、照片等，为点名提供数据源，笔者设计了两列：学号和姓名。

（2）Excel与PPT进行连接

E xcel与PP T进行连接，首先引用“Microsoft Excel 14.0 Object Library”。具体操作如下：打开PowerPoint2010→开发工具→Visual Basic→工具→引用→勾选“Microsoft Excel 14.0 Object Librar y”→确定。其中，4.0是Office 2010的版本，如果采用其他版本，要进行相应选择，否则，获取数据失败。此时，PPT与Excel建立连接，即可在PPT程序中使用Excel中的VBA对象属性函数。同时，为了能精准找到Excel学生名单，应尽量把PPT课件和Excel学生名单两个文件放在同一目录下，通过正在打开的PPT课件，获取Excel文件的路径，参考代码如图2所示。

图2

（3）获取EXCEL数据

在获取Excel数据时，其基本对象为：Application（Excel应用程序）→Workbook（工作簿）→Sheets（工作表）→Cells（单元格）。在VBA中定位到指定的单元格，使用方法为：工作簿.工作表.单元格。

本例中以获取学号为例，参考代码如下：

①找到激活的Sheet工作表。

Set xlSht = xlWBK.Worksheets(1)

xlSht.Activate

②读取学号和姓名信息。

单元格表达方式有两种——Range和Cells，工作表中的“行”用数字1、2、3等表示，“列”用A、B等来表示。两者s都指的是单元格对象。其中Cells是单个单元格对象，两个参数分别为行和列；Range()则是指一个区域，区域中可以是一个单元格，也可以是多个单元格。

随机点名的计算方法：

①根据标题行中“学号”字段或“姓名”字段，计算出表中第一行的行号start_row和最后以后的行号end_row end_row。

②通过随机函数Rnd计算出学生信息记录行。参考代码如图3所示。

图3

③显示点名信息。

在本例中，当PPT放映时，单击“随机点名”按钮，显示点名信息。因此是采取弹出窗体方式进行显示。参考代码如图4所示。

图4

4.退出PPT放映时关闭Excel

在操作PPT时，其基本对象为：Application（PowerPoint应用程序）→Presentation（演示文稿）→Slides（幻灯片放映窗口）→Shapes（幻灯片）。

OnSlideShowTerminate在幻灯片放映结束时自动运行的宏，可以用它来清理相关的信息。采用VBA编程，实现在PPT结束放映时关闭Excel进程，清空缓存数据，此操作非常重要，否则造成打开很多Excel的进程，导致随机点名失败。参考代码如图5所示。

图5

5.随机PPT课件的使用

当实现随机点名功能后，可以把此PPT作为模板，一是在此基础上设计制作自己的课件，二是把已有的课件复制到此模板上。优点：①操作简单；②PPT课件和Excel文件无缝连接，融为一体。缺点：如果复制的PPT课件版式与此模板不一致，需要进行PPT母版操作和代码复制。

● 结论

本文中的随机点名功能与PPT操作有机融合，功能简洁，简单可行。从笔者在线教学实际应用效果来看，它进一步丰富了课件的表现形式，激发了学生的学习兴趣，增强了与学生之间的交互，使课堂气氛更活跃和活泼，并且其开发和运行环境一致，控件与PPT课件教学内容展示有机融为一体，教师操作上手容易，线上线下应用快捷方便。