Excel利用VBA事先圆形沿直线移动的效果图教程

一、添加素材

1、绘制控制按钮:插入一个矩形形状,设置格式,如图所示。

2、绘制圆形图形:在插入形状命令中,找到椭圆形形状,然后按下Shift键,绘制圆形。

3、绘制直线:插入一条直线。PS:绘制时按下Shift键不松。

4、素材整理好之后,如图所示。包含三块:控制按钮,直线和圆形。PS:本教材的素材都是通过插入形状得到的。

二、VBA代码

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、实现动画:按下“开始”控制按钮即可实现圆形先向右移动,然后向左移动。

为您推荐

发表评论

联系我们

联系我们

在线咨询: QQ交谈

地址:中国·贵州·贵阳 友情链接QQ:1034559333 本站QQ群:123733639
关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部

关于本站 || 我要投稿 || CAD品牌 || Autocad2019教程 || 站点地图 ||

Copyright©️2018 CAD之家 All Rights Reserved·黔ICP备15000265号-2

版权声明:凡注明本站原创文章、作品,未经本人许可,任何人或机构不得以任何形式对本站内容进行复制作商业用途.

本站部分文章、资源来自互联网,版权归原作者及网站所有,如果侵犯了您的权利,请及时致信告知我站.地址:中国·贵州·贵阳 友情链接QQ:1034559333 本站QQ群:123733639