您的位置: 首页 > 攻略 > Excel怎么利用VBA事先圆形沿直线移动的效果

Excel怎么利用VBA事先圆形沿直线移动的效果

时间:2026-08-17 14:38:14
  • 来源:网络
  • 作者:未知
  • 编辑:小锤子
0

Excel软件中,你知道如何利用VBA事先圆形沿直线移动的效果吗?这里就为大家带来详细的利用教程分享,快一起来看看下面的详细步骤分享吧!

Excel怎么利用VBA事先圆形沿直线移动的效果

一、添加素材

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

Excel怎么利用VBA事先圆形沿直线移动的效果

Excel怎么利用VBA事先圆形沿直线移动的效果

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

Excel怎么利用VBA事先圆形沿直线移动的效果

Excel怎么利用VBA事先圆形沿直线移动的效果

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

Excel怎么利用VBA事先圆形沿直线移动的效果

Excel怎么利用VBA事先圆形沿直线移动的效果

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

Excel怎么利用VBA事先圆形沿直线移动的效果

二、VBA代码

1、进入VBA窗口

Excel怎么利用VBA事先圆形沿直线移动的效果

2、插入模块:在菜单栏中找到“插入”—“模块”。

Excel怎么利用VBA事先圆形沿直线移动的效果

3、输入代码:在模块中输入代码

1
2
3
4
5
6
7
8
9
10
11
12
13
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

Excel怎么利用VBA事先圆形沿直线移动的效果

三、设置控制按钮

1、从VBA窗口回到Excel窗口;

Excel怎么利用VBA事先圆形沿直线移动的效果

2、控制按钮设置:让该按钮指定以上代码,即moveshape;

Excel怎么利用VBA事先圆形沿直线移动的效果

Excel怎么利用VBA事先圆形沿直线移动的效果

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

Excel怎么利用VBA事先圆形沿直线移动的效果

软件下载

Microsoft Excel最新版

大小:5.71MB

版本:4.3.5.21

语言:简中

更新:2026-07-01

相关内容

编辑推荐