VBA的存在让excel动起来不在只是一个梦，下面小编将介绍一个用Excel实现图形直线往复运动的方法，希望能起到一个抛砖引玉的效果。工具/原料moreExcel（本教材以Excel2007为例）步骤一：添加素材1/4分步阅读

绘制控制按钮：插入一个矩形形状，设置格式，如图所示。

2/4

绘制圆形图形：在插入形状命令中，找到椭圆形形状，然后按下Shift键，绘制圆形。

3/4

绘制直线：插入一条直线。

PS：绘制时按下Shift键不松。

4/4

素材整理好之后，如图所示。包含三块：控制按钮，直线和圆形。

PS：本教材的素材都是通过插入形状得到的。

步骤二：VBA代码1/3

进入VBA窗口：可参考 Excel2007打开VBA的三种方法！

https://jingyan.baidu.com/article/066074d61a370dc3c21cb0ec.html

2/3

插入模块：在菜单栏中找到“插入”—“模块”。

3/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/3

从VBA窗口回到Excel窗口；

2/3

控制按钮设置：让该按钮指定以上代码，即moveshape；

3/3

实现动画：按下“开始”控制按钮即可实现圆形先向右移动，然后向左移动。

注意事项

如果对您有点帮助，请支持一下，谢谢！