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

weishi · 发表于 2008-9-21 19:24

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

weishi · 发表于 2008-9-21 19:27

附上原课件

ngcg · 发表于 2008-9-21 20:05

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

pC6MHewz.rar (80.88 KB, 下载次数: 69)

weishi · 发表于 2008-9-21 21:10

多谢你的帮助！

weishi · 发表于 2008-9-21 21:31

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

weishi · 发表于 2008-9-22 09:42

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

ngcg · 发表于 2008-9-22 10:49

按组合键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

weishi · 发表于 2008-9-22 19:01

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

ngcg · 发表于 2008-9-22 21:35

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

weishi · 发表于 2008-9-23 11:10

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

		自动登录	找回密码
密码			免费注册