学习Excel技术，关注微信公众号：excelperfect
标签：VBA下面是在网上找到的一段程序，可以让工作表中指定的矩形动起来。一个动作是转圈，一个动作是走斜线，如下图1所示。图1示例中矩形的名称为“Rectangle 1”。示例代码如下：Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '等待时间（毫秒）Sub Move_Square() Dim centerLeft As Long Dim centerTop As Long Dim Radius As Double Dim Theta As Double centerLeft = 300 centerTop = 300 Radius = 100 With ActiveSheet.Shapes(1) For Theta = 0 To 2 * Application.Pi() Step Application.Pi() / 48 .Left = centerLeft + (Radius * Cos(Theta)) .Top = centerTop + (Radius * Sin(Theta)) Sleep 40 DoEvents Next Theta End WithEnd SubSub test() Sheet1.Shapes("Rectangle 1").Left = 300 Sheet1.Shapes("Rectan
………………………………
