Excel实现图形旋转-Excel动画1

Excel是一个非常强大的电子表格软件，但经常有不少强人用它来做一些超逼格的功能，如图形旋转 并变成动画今天回来晚，时间不多，先来一个简单一点的： 作者：Excel小子

1479567272601153.png

Excel图形旋转动画：

1479567377589148.gif

Excel旋转动画相关的VBA代码：Sub 宏1() ' ' 宏1 宏 Dim jiaodu, t ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select Do While jiaodu <= 360 jiaodu = jiaodu + 1 For t = 1 To 2500 DoEvents Next t Selection.ShapeRange.IncrementRotation 1 LoopEnd Sub 作者源创教程，部落首发，转载前请先咨询作者。