- 统计空单元格个数怎么统计 10-24 16:31
- Excel怎么制作下拉菜单 10-24 15:36
- Excel怎么把行高换算成厘米 10-24 15:20
- Excel怎么制作仪表盘型图表 10-23 18:27
- Excel怎么制作多层折线图 10-23 18:20
- Excel行高怎么换算成厘米 10-23 10:22
- Excel怎么给下拉菜单加颜色 10-23 09:35
- Excel怎么统计空单元格 10-23 09:20
Excel软件中,你知道如何利用VBA事先圆形沿直线移动的效果吗?这里就为大家带来详细的利用教程分享,快一起来看看下面的详细步骤分享吧!
一、添加素材
1、绘制控制按钮:插入一个矩形形状,设置格式,如图所示。
2、绘制圆形图形:在插入形状命令中,找到椭圆形形状,然后按下Shift键,绘制圆形。
3、绘制直线:插入一条直线。PS:绘制时按下Shift键不松。
4、素材整理好之后,如图所示。包含三块:控制按钮,直线和圆形。PS:本教材的素材都是通过插入形状得到的。
二、VBA代码
1、进入VBA窗口
2、插入模块:在菜单栏中找到“插入”—“模块”。
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
|
三、设置控制按钮
1、从VBA窗口回到Excel窗口;
2、控制按钮设置:让该按钮指定以上代码,即moveshape;
3、实现动画:按下“开始”控制按钮即可实现圆形先向右移动,然后向左移动。
110.16MB / 2026-11-03
125.96MB / 2026-11-03
423.73MB / 2026-11-03
400.53MB / 2026-11-03
578.56MB / 2026-11-03
8.51MB / 2026-11-02
42.78MB / 2026-06-22
84.55MB / 2026-03-23
248.80MB / 2026-09-08
2.79MB / 2026-07-23
25.97MB / 2026-04-29
1.90MB / 2026-05-07
210.99MB / 2026-09-08
京ICP备14006952号-1 京B2-20201630 京网文(2019)3652-335号 沪公网安备 31011202006753号违法和不良信息举报/未成年人举报:legal@3dmgame.com
CopyRight©2003-2018 违法和不良信息举报(021-54473036)400-105-5185 All Right Reserved