[讨论][求助]ppt中,文档关闭后重启,Rnd命令无效.[已解决]

pati

在一个空白ppt文稿中,使用两个控件,一个文本框,一个按钮(默认名字:TextBox1、CommandButton1).

按钮定义:

Private Sub CommandButton1_Click()
TextBox1 = Rnd
End Sub

保存后测试,能产生随机数.

关闭文件,询问"是否保存对文档XXX的更改"

若选"是",文档保存关闭,重新打开后,随机数功能失效.

若选"否",文档在以最近保存点关闭,重新打开后,随机数功能也失效...

也就是说,只要关闭文档,随机数功能肯定失效...

请教高手,是我哪里做错了什么?或者是别的原因??

谢谢

[此贴子已经被作者于2007-1-18 17:01:47编辑过]

cxffxc

用下面的代码试试(放映时双击TextBox1产生随机数):

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Rnd
End Sub

pati

谢谢版主关注

我用了

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Rnd
End Sub

双击能产生随机数,但保存关闭后,问题还是一样出现,重新打开,随机数功能还是消失了...

ps.不知道版主office用的什么版本,在关闭文件后能否正常实现上述功能?我的是2003,单位机子上也是有这样的问题.

谢谢

[此贴子已经被作者于2007-1-17 22:52:41编辑过]

cxffxc

我用的是2007,一切正常.

pati

搞定,问题出在宏安全性上.

当安全性设为中时,打开含vb控件的文件时会询问是否开启宏.

当安全性设为低时,可正常打开,并实现随机数功能.

谢谢版主