导读:IT技术IT技术 当前位置：首页 > 维修知识 > Excel如何利用VBA事先圆形沿直线移动的效果?Excel是一种比较常用的软件，但是它里面的许多内容还是比较难的。例如其中修电脑上门维修ito知识分享。建设网站

Excel是一种比较常用的软件，但是它里面的许多内容还是比较难的。例如其中使用vba可以制作一种动画效果，但是如何制作一个圆形沿着直线移动的效果呢？下面小编就为你们讲解一下，需要的朋友可以参考一下。 一、添加素材 1、绘制控制按钮：插入一个矩形形状，设置格式，如图所示。

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

3· 4

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

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

二、VBA代码 1、进入VBA窗口

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

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

Sub moveshape() Dim i% Do i = i + 1 Sheet1.Shapes(2).Left = i + 50 ‘圆形图形向右移动 网站seo优化培训 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制作动画效果的方法，希望对你们有用。相关高端网站建设修电脑上门维修ito知识分享。

关键词标签: IT技术 直线 圆形