急问，单选题控件无法正常使用

znyrsx 发表于: 2008-12-29 00:29 来源: 扑奔PPT网

最近做课件，需要做一个单选题，如下：

A 20% B30% C50% D80%,正确答案为C，代码如下：
Private Sub OptionButton1_Click()
MsgBox ("答错了，再想想!")
OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False
End Sub
Private Sub OptionButton2_Click()
MsgBox ("答错了，再想想!")
OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False
End Sub
Private Sub OptionButton3_Click()
MsgBox ("恭喜您，答对了!")
OptionButton1.Value = False And OptionButton2.Value = False And OptionButton4.Value = False
End Sub
Private Sub OptionButton4_Click()
MsgBox ("答错了，再想想!")
OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False
End Sub
做完后，放映正常，关闭文件再次打开，就没有任何反应了，打开一个新文件，将幻灯片考入后放映效果正常，关上再打开有没有效果了，请问怎么回事呢？
谢谢高手，请指点一下。

[ 本帖最后由 znyrsx 于 2008-12-29 12:55 编辑 ]

大家对急问，单选题控件无法正常使用的评论

amwyq 发表于 2008-12-29 07:20:37: 宏安全级别太高吗？

你用2003还是2007？注意打开时启用宏。。。
jack0421 发表于 2008-12-29 12:18:13: A 20% B30% C50% D80%,正确答案为C，代码如下：
Private Sub OptionButton1_Click()
MsgBox ("答错了，再想想!")
End Sub

Private Sub OptionButton2_Click()
MsgBox ("答错了，再想想!")
End Sub

Private Sub OptionButton3_Click()
MsgBox ("恭喜您，答对了!")
End Sub

Private Sub OptionButton4_Click()
MsgBox ("答错了，再想想!")
End Sub

简化一下代码，其实效果是一样的！
保存为含有宏的ppt，把宏设置为中或低，注意打开时如果有提示，要启用宏。
znyrsx 发表于 2008-12-29 12:54:10: 谢谢，问题解决了，是宏的事。谢谢3楼的代码！
liu666 发表于 2008-12-30 09:27:39: 用了控件、编程之后，在POWERPOINT的环境下是没问题的，有问题就是安全性的问题。但是只要打包就不得行了，也就是说PPVIEW不支持控件，那么要做一个脱离PPT环境的是不得行的。不知道哪位大虾能解决不？这个问题我以前也提过，不过没人能解决。
mason1 发表于 2009-1-03 23:07:37: 我也想知道楼上的问题的答案。