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

——以PPT2010为例随机点名是利用微软office系统内在的VBA语言编程实现的。因此，wps能打开该文件，但不能实现随机点名。该程序在ppt2003及以上版本都能实现。文件必须以“启用宏的演示文稿”保存，即后缀为.pptm而不是.ppt或.pptx。第一次打开该文件时，ppt2007及以上版本要选择“启用内容”，ppt2003应该在安全里设置“启用宏”。这样菜单栏就有开发工具这个选项了。先在第一张幻灯片时，点“视图”，进入“幻灯片母版”最后双击这个框进入VBA编程界面Publiccfxm()AsStringPublicjsAsIntegerPublicbjAsString完成后，双击窗口等等吧，把这个找出来，写下以下内容。PrivateSubComboBox1_Change()bj=ComboBox1.TextEndSubPrivateSubComboBox1_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个班，我想一般也够了。PrivateSubUserForm_Activate()Dimxm()AsString'姓名变量DimsfcfAsInteger'姓名重复DimjssAsInteger'计数DimstartmAsSingle'时钟DimbjrsAsInteger'班级人数SelectCasebjCase1班bjrs=57'确定班级人数ReDimxm(bjrs)jss=js+1ReDimPreservecfxm(jss)xm(1)=柏瑞欣xm(2)=柴芮xm(3)=陈诺xm(4)=陈雅萱xm(5)=陈一蕊xm(6)=程妍雪xm(7)=崔可歆xm(8)=党逸尘xm(9)=邓昌曼xm(10)=丁思雨xm(11)=丁雨辰xm(12)=董昕沂xm(13)=高子昊xm(14)=郭睿xm(15)=金雅婷xm(16)=李宠显xm(17)=李婧媛xm(18)=李静xm(19)=李雨潇xm(20)=刘梦洁xm(21)=刘雨歆xm(22)=毛自如xm(23)=倪铭xm(24)=彭雨航xm(25)=羌睿欣xm(26)=强薇xm(27)=荣紫妍xm(28)=阮心悦xm(29)=芮絮飞xm(30)=沈晨xm(31)=沈欣xm(32)=沈嫣然xm(33)=孙旸xm(34)=邰茜辰xm(35)=唐雪莹xm(36)=汪欣xm(37)=汪轶诚xm(38)=王倩倩xm(39)=王绍仟xm(40)=王新媛xm(41)=王尊妮xm(42)=吴希冉xm(43)=吴宇菲xm(44)=阎士蓉xm(45)=杨程程xm(46)=杨莹xm(47)=杨云千xm(48)=张朝阳xm(49)=张瑞xm(50)=张睿嘉xm(51)=张羽阳xm(52)=章家一院xm(53)=章言xm(54)=周静娴xm(55)=周可颖xm(56)=朱梦婷xm(57)=左笑雨sfcf=1DoWhilesfcf=1Randomizev=Int((bjrs*Rnd)+1)Forj=0TojsIfxm(v)=cfxm(j)Thensfcf=1ExitForElsesfcf=0EndIfNextLoopcfxm(js)=xm(v)js=js+1UserForm1.Label1.Caption=xm(v)startm=TimerDoWhileTimerstartm+3DoEventsLoopUserForm1.HideCase2班bjrs=56ReDimxm(bjrs)jss=js+1ReDimPreservecfxm(jss)xm(1)=柏瑞xm(2)=柴芮ffxm(3)=陈诺xm(4)=陈gg雅萱xm(5)=陈一蕊xm(6)=程hh妍雪xm(7)=崔可歆xm(8)=党gg逸尘xm(9)=邓昌mm曼xm(10)=丁思bb雨xm(11)=丁雨辰xm(12)=董昕沂xm(13)=高子昊xm(14)=郭睿xm(15)=金雅婷xm(16)=李宠bb显xm(17)=李婧媛xm(18)=李静xm(19)=李雨bb潇xm(20)=刘梦洁xm(21)=刘雨歆xm(22)=毛自如xm(23)=倪铭xm(24)=彭雨航xm(25)=羌睿bb欣xm(26)=强薇xm(27)=荣紫妍xm(28)=阮心bb悦xm(29)=芮絮飞xm(30)=沈晨xm(31)=沈欣xm(32)=沈bb嫣然xm(33)=孙旸xm(34)=邰茜辰xm(35)=唐bb雪莹xm(36)=汪欣xm(37)=汪轶诚xm(38)=王倩倩xm(39)=王绍仟xm(40)=王新媛xm(41)=王bb尊妮xm(42)=吴希冉xm(43)=吴宇菲xm(44)=阎士蓉xm(45)=杨程程xm(46)=杨莹xm(47)=杨云千xm(48)=张朝阳xm(49)=张瑞xm(50)=张睿嘉xm(51)=张羽阳xm(52)=章家一院xm(53)=章言xm(54)=周静娴xm(55)=周可颖xm(56)=朱梦婷sfcf=1DoWhilesfcf=1Randomizev=Int((bjrs*Rnd)+1)Forj=0TojsIfxm(v)=cfxm(j)Thensfcf=1ExitForElsesfcf=0EndIfNextLoopcfxm(js)=xm(v)js=js+1UserForm1.Label1.Caption=xm(v)startm=TimerDoWhileTimerstartm+3DoEventsLoopUserForm1.HideCase3班Case4班Case5班Case6班Case3班Case4班Case5班Case6班Case7班Case8班Case9班Case10班Case11班Case12班Case13班Case14班Case15班Case16班Case17班Case18班Case19班Case20班Case21班Case22班Case23班Case24班Case25班Case26班Case27班Case28班Case29班Case30班CaseElseUserForm1.Label1.Caption=先选班级startm=TimerDoWhileTimerstartm+3DoEventsLoopUserForm1.HideEndSelectEndSub这个地方的字你看不见，但没关系，复制一下吧。下面搞一个大的解释一下：编好后，关闭编程窗口，关闭幻灯片母板。现在进入第二张幻灯片，再进入视图－－幻灯片母版注意：第4步那个框是将光标放在3那个按钮右键出来的。搞好4后，双击点名按钮，进入下一步。关闭窗口－关闭母版视图，播放。OK你可能一次不能成功，多试几次吧！学生姓名可以在excel里完成。如果学生姓名在A列2行，你可以找个空白列，在2行内键入＝”xm(1)=[“&A2&”]”，回车。注意这里的引号是英文状态下的，不是中文状态下的。然后点中这一格，当右下角出现+号时一直拖下去。注意xm()里的数字会增大，如果不增大不行。将这一列选中，复制。打开word，粘贴。分别替换“[”和“]”为英文状态下的引号。再将内容复制到PPT里这行了。