Question

我正在尝试创建一个包含一些VBA的简单PowerPoint，以使其成为交互式测验。

Sub CorrectAnswer()
Points.Caption = (Points.Caption) + 10
Output = MsgBox("Your answer is correct, well done!", vbOKOnly, "Correct     Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub IncorrectAnswer()
Points.Caption = (Points.Caption) - 0
Output = MsgBox("Your answer is wrong.", vbOKOnly, "Wrong Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub FIB1()
    Dim answer As String

    answer = InputBox(Prompt:="Type your code below")
    If answer = "test response" Then
        CorrectAnswer
    Else
        IncorrectAnswer
    End If
    ActivePresentation.SlideShowWindow.View.Next
End Sub


Sub Reset()
Points.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

在Sub FIB1区域中，我遇到了问题。它给了我运行时错误“ 424”，指出未引用对象。我要的是问一个问题，然后他们单击幻灯片上的按钮/链接，然后打开一个对话框，您可以在其中键入答案。这时，他们单击“确定”，然后如果在正确的位置键入了正确的答案。如果没有，他们当然会得到错误的答案。

这是设置的空白，而不是我在那里也可以正常使用的多选样式。这似乎是给我一个问题的唯一领域。我对VBA知之甚少，无法看到自己在做错什么，并且大部分代码来自观看youtube上的视频以将其组合在一起。

有人可以帮忙吗？

需要Powerpoint VBA运行时错误424对象

0 个答案: