让图片自动旋转1周
标签：VBA
先不要想代码，而是要有想法。
可以编写一个简单的程序，让工作表中指定的图片轻松自动旋转，如下图1所示。
图1
在工作表中放置图片并将其命名，本示例中的图片名称为“excelperfect”。然后，打开VBE，插入一个标准模块，输入下面的代码：
Sub Rotate()
Dim DegreeLoop As Long
For DegreeLoop = 1 To 360 Step 2
ActiveSheet.Shapes("excelperfect").IncrementRotation 2
WaitTime = Timer
While Timer < WaitTime + 0.01
DoEvents
Wend
Next DegreeLoop
End Sub运行代码，就可以看到上图所示的效果啦。好简单！
有兴趣的朋友，可以调整上述代码中的数字，试试调整后的旋转效果。并且，可以以此代码为基础，稍作改变，让图片一直旋转下去。
本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2024-03-14，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读