图片旋转了

banjinjiu

第一次发分享帖，心里很高兴，又有点慌，怕遇到高手，图片真的旋转了！
但是有两个图片，分开做每个都旋转，但是合起来，还是只有一个转，代码有点欠缺，第一个是图片1，第二个是图片2。
高手出现的，请指点下。
因为看到论坛里有人要旋转的图片，我也一直没找到。看到旋转的直线，模仿了一个，谢谢原作者。
旋转的图片附件：

banjinjiu

自己再顶一下，不要沉了。

祝洪忠-

不错 可以加一个按钮 否则像我这样的V盲就不知所措了

html2013

banjinjiu 发表于 2013-6-20 23:08
自己再顶一下，不要沉了。

Sub 旋转问题()
    Set r = ActiveSheet.Shapes("Picture 1")
    Set s = ActiveSheet.Shapes("Picture 2")
    For A = 0 To 180
        For B = 360 To 0 Step -1
            DoEvents
            r.IncrementRotation A
            s.IncrementRotation B
        Next B
    Next A
End Sub

少如

你那个 [请输入想查找的商品]  总是浮在桌面上, 怎么删除呀????????

banjinjiu

少如 发表于 2013-6-21 11:38
你那个 [请输入想查找的商品]  总是浮在桌面上, 怎么删除呀????????

你搞错了，我没有做你说的那个

banjinjiu

少如 发表于 2013-6-21 11:38
你那个 [请输入想查找的商品]  总是浮在桌面上, 怎么删除呀????????

你搞错人了，我没有搞你说的这个东西。

banjinjiu

祝洪忠- 发表于 2013-6-20 23:30
不错 可以加一个按钮 否则像我这样的V盲就不知所措了

感谢你的关心，我重新修改了代码，并且加个“图片旋转'的按钮，实现两个图片能连续旋转。但是我想制作个“图片停止”的按钮，不会做，虽然转的时间短，但是如果要是时间长，就没法停止。烦请指点下，谢谢。
附件见后

gdbj079

谢谢分享，下来学习

wumisandao

很开心，学到了，谢谢您的分享