幻灯片自动切换时如何运行PowerPoint VBA代码显示答题总分

核心问题分析 #

你遇到的问题源于：直接在OnSlideShowPageChange事件中写入全部统计逻辑会阻塞幻灯片自动切换流程；而将代码放在第5张幻灯片的触发事件中时，自动切换动作不会触发该代码（仅手动点击才会生效）。以下是具体解决步骤：

1. 分离事件与业务逻辑，避免干扰自动切换
   在演示文稿的ThisPresentation类模块中编写幻灯片切换事件，仅当切换到第5张时才调用统计代码，这样不会影响其他幻灯片的自动切换：

   Private Sub Presentation_SlideShowPageChange(ByVal Wn As SlideShowWindow)
       ' 仅在切换到第5张幻灯片时执行统计逻辑
       If Wn.View.Slide.SlideIndex = 5 Then
           CalculateScore
       End If
   End Sub
   

2. 封装得分统计代码为独立子程序
   创建一个标准模块，将统计代码封装成独立的Sub，便于事件调用且更易维护：

   Sub CalculateScore()
       Dim score1 As Integer, score2 As Integer, score3 As Integer
       Dim ttlscore As Integer
       
       score1 = 0: score2 = 0: score3 = 0
       
       ' 校验第2题答案
       If ActivePresentation.Slides(2).Shapes("OptionButton1").OLEFormat.Object.Value = True Then
           score1 = 1
       End If
       ' 校验第3题答案
       If ActivePresentation.Slides(3).Shapes("OptionButton4").OLEFormat.Object.Value = True Then
           score2 = 1
       End If
       ' 校验第4题答案
       If ActivePresentation.Slides(4).Shapes("OptionButton4").OLEFormat.Object.Value = True Then
           score3 = 1
       End If
       
       ttlscore = score1 + score2 + score3
       ' 更新得分显示文本框
       ActivePresentation.Slides(5).Shapes("scoremsg").TextFrame.TextRange.Text = "总得分：" & ttlscore & "分"
   End Sub
   

3. 确保第2-4张幻灯片的自动切换逻辑正确
   为每张幻灯片的所有OptionButton绑定Click事件，实现选完即切换，替代依赖幻灯片自动切换时间的方式：
   比如第2张幻灯片的OptionButton，在设计模式下双击控件，写入以下代码（所有选项都要添加）：

   Private Sub OptionButton1_Click()
       SlideShowWindows(1).View.Next
   End Sub
   
   Private Sub OptionButton2_Click()
       SlideShowWindows(1).View.Next
   End Sub
   ' 其他OptionButton同理添加Click事件
   

4. 关键设置检查

   • 确认所有ActiveX控件的名称与代码中一致（右键控件→属性查看名称）。
   • 确认第5张幻灯片的文本框名称为scoremsg。
   • 将演示文稿保存为.pptm格式，打开时启用宏，否则代码无法执行。

内容的提问来源于stack exchange，提问作者user3851491