怎么使用VB对PPT操作题进行评分

Question

 需要直接通过编程来实现
f pptdocument.Slides(1).Shapes.Count = 1 Then
            If pptdocument.Slides(1).Shapes(1).TextFrame.TextRange = "Microsoft Office图书策划案" Then
                 right_info_ppt = right_info_ppt + "第1张幻灯片标题得分：1分" + Chr(10)
                 pptzf = pptzf + 1
            Else
                 error_info_ppt = error_info_ppt + "第1张幻灯片标题得分：0分" + Chr(10)
            End If
这样之类的

Answer 1

在PowerPoint2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

Answer 2

哈哈，我这几天正在做楼主所说的这个东西
用VBA来写针对特定题目的评分程序，应该说是没有什么问题，但如果要写一个“通用”的、能够适应任何PPT操作题的评分程序，就有点麻烦了！

Answer 3

PowerPoint操作题如下：
-----------------------------------
1. 将幻灯片大小设置为35毫米幻灯片；
2. 将第一张幻灯片版式改为“标题幻灯片”，并设置幻灯片放映方式为“循环放映，按ESC键终止”；
3. 设置所有幻灯片背景为“画布”纹理，所有幻灯片切换效果为溶解；
4 .为第三张幻灯片中带项目符号的文字创建超链接，分别指向具有相应标题的幻灯片；
5.在最后一张幻灯片文字下方插入图片jin.jpg，设置图片高度、宽度缩放比例均为50%，图片进入的动画效果为旋转，在上一动画之后延迟1秒发生；

Answer 4

没理解，PPT为啥限定得那么死。硬要把一种靠创意想法来吸引人的东西搞成标准化的考试评分。
基本上，目前我看到的能吸引人的PPT关键都是图片。妹子们弄得好看都是去下载现成模板。总之主要靠美工。其他搞花头的东西都让人厌烦。