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

zds209

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

user_xzayo

附上原课件

javaflower2011

这个可能对你有用。因为尚未修改，只能用在2003或以前的版本。
pC6MHewz.rar (80.88 KB, 下载次数: 90)

2016-4-7 18:04 上传

点击文件名下载附件

user_fqoqlawd

多谢你的帮助！

bengbengdou

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

user_bxpwy

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

user_qesxw

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

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

user_prtxrhvj

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

xiange007

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