在Excel中利用VBA达到直线移动效果的步骤(2)
1、进入VBA窗口
2、插入模块：在菜单栏中找到“插入”—“模块”。
3、输入代码：在模块中输入代码
Sub moveshape()
Dim i%
Do
i = i + 1
Sheet1.Shapes(2).Left = i + 50 ‘圆形图形向右移动
DoEvents
Loop Until i = 1000
Do
i = i - 1
Sheet1.Shapes(2).Left = i + 50 ’圆形图形向左移动
DoEvents
Loop Until i = 1
End Sub
三、设置控制按钮
1、从VBA窗口回到Excel窗口；
2、控制按钮设置：让该按钮指定以上代码，即moveshape；
3、实现动画：按下“开始”控制按钮即可实现圆形先向右移动，然后向左移动。
以上就是excel中vba制作动画效果的教程，希望大家喜欢，请继续关注路饭。