VBA的存在让excel动起来不在只是一个梦,下面小编将介绍缬方焱蜱一个用Excel实现图形直线往复运动的方法,希望能起到一个抛砖引玉的效果。
工具/原料
Excel(本教材以Excel2007为例)
步骤一:添加素材
1、绘制控制按钮:插入一个矩形形状,设置格式,如图所示。
2、绘制圆形图形:在插入形状命令中,找到椭圆形形状,然后按下Shift键,绘制圆形。
3、绘制直线:插入一条直线。PS:绘制时按下Shift键不松。
4、素材整理好之后,如图所示。包含三块:控制按钮,直线和圆形。PS:本教材的素材都是通过插入形状得到的。
步骤二:VBA代码
1、进入VBA窗口:可参考苇质缵爨Excel2007打开VBA的三种方法!https://jingyan.baidu.com/article/066074d61a370dc3c21cb0ec.html
2、插入模块:在菜单栏中找到“插入”—“模块”。
3、输入代码:在模块中输入代码Submoveshape()Dimi%锓旆痖颧Doi=i+1Sheet1.Shapes(婷钠痢灵2).Left=i+50‘圆形图形向右移动DoEventsLoopUntili=1000Doi=i-1Sheet1.Shapes(2).Left=i+50’圆形图形向左移动DoEventsLoopUntili=1EndSub
步骤三:设置控制按钮
1、从VBA窗口回到Excel窗口;
2、控制按钮设置:让该按钮指定以上代码,即moveshape;
3、实现动画:按下“开始”控制按钮即可实现圆形先向右移动,然后向左移动。