自动旋转。为何实现不了

yjpw

这是微软大赛中的一题，打开文档，让图形自动旋转360，为什么实现不了，在那里给图形命名。 Sub Rotate360() Dim I As Integer Dim Pausetime, start, finish, totaltime Pausetime = 0.1 For I = 1 To 36 start = Timer Do While Timer < start + Pausetime DoEvents Loop ActiveDocument.Shapes("autoshape 1").IncrementRotation 10 Next I End Sub

aoe

没问题的，可以运行啊。要把　autoshape 1　改成你的图形的名字　。 录制一个宏，就知道你的图形的名字了。