user_eytpl 发表于 2016-4-12 12:31:01

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

在一个空白ppt文稿中,使用两个控件,一个文本框,一个按钮(默认名字:TextBox1、CommandButton1).
按钮定义:
Private Sub CommandButton1_Click()
TextBox1 = Rnd
End Sub
保存后测试,能产生随机数.
关闭文件,询问"是否保存对文档XXX的更改"
若选"是",文档保存关闭,重新打开后,随机数功能失效.
若选"否",文档在以最近保存点关闭,重新打开后,随机数功能也失效...
也就是说,只要关闭文档,随机数功能肯定失效...
请教高手,是我哪里做错了什么?或者是别的原因??
谢谢

user_aijdvtxq 发表于 2016-4-12 13:51:51

用下面的代码试试(放映时双击TextBox1产生随机数):
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Rnd
End Sub

tieunguyet 发表于 2016-4-12 13:53:40

谢谢版主关注
我用了
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Rnd
End Sub
双击能产生随机数,但保存关闭后,问题还是一样出现,重新打开,随机数功能还是消失了...
ps.不知道版主office用的什么版本,在关闭文件后能否正常实现上述功能?我的是2003,单位机子上也是有这样的问题.
谢谢

user_dnpyq 发表于 2016-4-12 14:01:00

我用的是2007,一切正常.

user_bvssr 发表于 2016-4-12 15:04:23

搞定,问题出在宏安全性上.
当安全性设为中时,打开含vb控件的文件时会询问是否开启宏.
当安全性设为低时,可正常打开,并实现随机数功能.
谢谢版主
页: [1]
查看完整版本: [讨论][求助]ppt中,文档关闭后重启,Rnd命令无效.[已解决]