如何在PPT里实现多班级点名.pptx

在PPT里实现多班级随机点名 以PPT2010为例 随机点名是利用微软office系统内在的VBA语言编程实现的 因此 wps能打开该文件 但不能实现随机点名 该程序在ppt2003及以上版本都能实现 文件必须以 启用宏的演示文稿 保存 即后缀为 pptm而不是 ppt或 pptx 第一次打开该文件时 ppt2007及以上版本要选择 启用内容 ppt2003应该在安全里设置 启用宏 这样菜单栏就有开发工具这个选项了 先在第一张幻灯片时 点 视图 进入 幻灯片母版 最后双击这个框进入VBA编程界面 Publiccfxm AsStringPublicjsAsIntegerPublicbjAsString 完成后 双击窗口 等等吧 把这个找出来 写下以下内容 PrivateSubComboBox1 Change bj ComboBox1 TextEndSub PrivateSubComboBox1 GotFocus ComboBox1 ClearComboBox1 AddItem 1班 ComboBox1 AddItem 2班 ComboBox1 AddItem 3班 ComboBox1 AddItem 4班 ComboBox1 AddItem 5班 ComboBox1 AddItem 6班 ComboBox1 AddItem 7班 ComboBox1 AddItem 8班 ComboBox1 AddItem 9班 ComboBox1 AddItem 10班 ComboBox1 AddItem 11班 ComboBox1 AddItem 12班 ComboBox1 AddItem 13班 ComboBox1 AddItem 14班 ComboBox1 AddItem 15班 ComboBox1 AddItem 16班 ComboBox1 AddItem 17班 ComboBox1 AddItem 18班 ComboBox1 AddItem 19班 ComboBox1 AddItem 20班 ComboBox1 AddItem 21班 ComboBox1 AddItem 22班 ComboBox1 AddItem 23班 ComboBox1 AddItem 24班 ComboBox1 AddItem 25班 ComboBox1 AddItem 26班 ComboBox1 AddItem 27班 ComboBox1 AddItem 28班 ComboBox1 AddItem 29班 ComboBox1 AddItem 30班 EndSub 复制吧 不用输入了 我这里定义的是30个班 我想一般也够了 这个地方的字你看不见 但没关系 复制一下吧 下面搞一个大的解释一下 编好后 关闭编程窗口 关闭幻灯片母板 现在进入第二张幻灯片 再进入视图 幻灯片母版注意 第4步那个框是将光标放在3那个按钮右键出来的 搞好4后 双击点名按钮 进入下一步 关闭窗口 关闭母版视图 播放 OK你可能一次不能成功 多试几次吧 学生姓名可以在excel里完成 如果学生姓名在A列2行 你可以找个空白列 在2行内键入 xm 1 A2 回车 注意这里的引号是英文状态下的 不是中文状态下的 然后点中这一格 当右下角出现 号时一直拖下去