Office学习社区 › 宏和VBA小程序开发 › [求助]单选题算总分的VBA程序

zds209 发表于 2016-4-12 12:49:02

[求助]单选题算总分的VBA程序

两张幻灯片，每张5道单选题，两张共10道选择题，求在第3张幻灯片写VBA总分程序，拜托VBA老师帮助。

user_xzayo 发表于 2016-4-12 14:11:14

附上原课件

javaflower2011 发表于 2016-4-12 14:16:07

这个可能对你有用。因为尚未修改，只能用在2003或以前的版本。

user_fqoqlawd 发表于 2016-4-12 15:17:47

多谢你的帮助！

bengbengdou 发表于 2016-4-12 15:22:09

好人好报，好人健康长寿！

user_bxpwy 发表于 2016-4-12 15:39:37

课件很开放，但我发现如果题目文本过长，排不下，能否自动换行？

user_qesxw 发表于 2016-4-12 15:42:58

按组合键Alt+F11进入VisualBasicEditor
找到以下内容：
    With ActivePresentation.Slides(2).Shapes.AddShape(Type:=1, Left:=0, Top:=0, Width:=sldWid, Height:=4 * fSize)
      .Name = "Question"
      .Fill.Transparency = 1
    End With
将它改为：
    With ActivePresentation.Slides(2).Shapes.AddShape(Type:=1, Left:=0, Top:=0, Width:=sldWid, Height:=4 * fSize)
      .Name = "Question"
      .TextFrame.WordWrap = msoTrue'新加入一行
      .Fill.Transparency = 1
    End With

user_xilnr 发表于 2016-4-12 15:59:14

万分多谢！老师，你原来是教电脑的还是自学VBA的？一般的老师不懂VBA程序啊！我认为，你的VBA ppt 课件是真正体现新课标精神。

user_prtxrhvj 发表于 2016-4-12 16:02:20

你说得不错，很少人懂得应用VBA制作PowerPoint课件，也很少人知道有VBA这回事，很难得你对这方面有这么浓厚的兴趣。
电脑技术（操作和编程），是要通过自学才能习得，靠参加课程培训，是很难掌握的。
我在退休前担任了10年的电脑培训员，所以电脑技术懂得比一般老师多。
祝你教学愉快。

xiange007 发表于 2016-4-12 16:03:26

修改过了，用得很爽！thanks!

查看完整版本: [求助]单选题算总分的VBA程序