当前位置：首页 → 问答吧 → [求助]单选题算总分的VBA程序

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

时间：2008-09-21

来源：互联网

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

作者: weishi 发布时间: 2008-09-21

附上原课件

作者: weishi 发布时间: 2008-09-21

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

pC6MHewz.rar (80.88 KB)

作者: ngcg 发布时间: 2008-09-21

多谢你的帮助！

作者: weishi 发布时间: 2008-09-21

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

作者: weishi 发布时间: 2008-09-21

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

作者: weishi 发布时间: 2008-09-22

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

作者: ngcg 发布时间: 2008-09-22

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

作者: weishi 发布时间: 2008-09-22

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

作者: ngcg 发布时间: 2008-09-22

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

作者: weishi 发布时间: 2008-09-23

谢谢黄老师的分享！

作者: tangqingfu 发布时间: 2011-04-13