╲ふ誮艸嗏℡ 发表于 2016-4-12 17:39:15

谢谢，搞定！

yang4hui 发表于 2016-4-12 17:40:25

根本没有autoshape，是不需要下载插件？

einter 发表于 2016-4-12 17:45:29

学习学习！

xwll 发表于 2016-4-12 17:46:53


[*]Private Sub CommandButton1_Click()
[*]arr = Array(vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite)
[*]Randomize
[*]CommandButton1.BackColor = arr(Int(Rnd() * (UBound(arr) + 1)))End Sub

复制代码
页: 1 [2]
查看完整版本: PPT中如何让按钮点击过就变色或消失