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

excel中制作动画效果也很简单，可以使用bva实现，下面我们就来看看详细的教程。

Excel2007 绿色版精简免费[58MB]

• 类型：办公软件
• 大小：58MB
• 语言：简体中文
• 时间：2016-06-27

查看详情

一、添加素材

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

以上就是excel中vba制作动画效果的教程，希望大家喜欢，请继续关注脚本之家。

相关推荐：

excel怎么使用vba里的copy命令?

excel怎么使用vba的close关闭工作簿?

excel表格中怎么使用vba中的resize命令?