如何让附件的八卦转起来,(能转能停哦)

exp_dyq · 发表于 2009-4-14 14:19

问题如标题,附件有八卦图.

请各位有兴趣指导下, 谢谢.

jxb8088 · 发表于 2009-4-14 15:15

新建一个 CommandButton1按钮，写入下面代码.
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "转" Then
CommandButton1.Caption = "停"
Else
CommandButton1.Caption = "转"
End If
Do While CommandButton1.Caption = "停"
ActiveSheet.Shapes("Group 15").IncrementRotation 1
DoEvents
Loop
End Sub

exp_dyq · 发表于 2009-4-14 15:42

谢谢,没有想到这么容易就解决了, 我都要想破头了.

praijna · 发表于 2009-4-14 20:33

楼主是干吗的呢，风水大师哦？二楼的代码有意思，第一次见到可以让一个东西运动起来的代码。
刚刚试了一下，用一张图片代替了那个八卦图，挺好玩儿的。

[ 本帖最后由 praijna 于 2009-4-14 20:39 编辑 ]

ningyuanchao · 发表于 2009-4-14 20:49

jxb8088 兄高人，学习！

exp_dyq · 发表于 2009-4-16 09:02

这段代码又短又好用,可以让无聊的数据统计生活多点"运动",多点色彩.

tymonzhang · 发表于 2009-4-17 11:29

it's very good lz!

hhzjxss · 发表于 2009-4-19 06:08

谢谢，不错，

sryks · 发表于 2009-4-18 22:39

正学习了。谢谢。

sunsoncheng · 发表于 2009-4-19 09:45

如果能控制速度及偏心转动可能就更好了

		自动登录	找回密码
密码			免费注册

[推荐] 如何让附件的八卦转起来,(能转能停哦)