• 极限训练锻造“蓝军”利刃,精锐特战队员来了! 2019-11-15
  • 哈尔滨:推进统战工作“四化一体系”建设 2019-11-12
  • 蠢货!咱是让你们看看制订一个企业发展计划要达到哪些要求,难度有多大?一个具体的企业都这么难,大到一个县,一个省,甚至是一个国家,难度可想而知! 2019-11-12
  • 北京天安门广场更换花卉 2019-11-07
  • 《中国道路的成功密码》首发研讨会在京举行 2019-11-07
  • 王国平应邀赴金华市调研并作专题讲座 2019-11-04
  • 真正聪明之人,能在寻常岁月里悟透贞亲人世的惊喜 2019-11-04
  • 忻府区中医下乡进村  为老百姓健康把脉--黄河新闻网 2019-11-04
  • 法制日报:别让世界杯激情冲淡守法意识 2019-11-01
  • 美国又打出2000亿关税牌,中方这300字声明暗藏玄机! 2019-10-27
  • 《斯琴高丽的开心》首发 斯琴高丽给自己生日送礼斯琴高丽 2019-10-27
  • 隋炀帝萧后凤冠仿制品亮相 原件或为李世民赏赐 2019-10-26
  • 中国,向大洋更深处挺进(评论员观察) 2019-10-20
  • 《好色千金》杀青 高冷侍卫刘天宝获赞“武生担当” 2019-10-15
  • 海上洄游时 北海狗 连续两周深睡眠 2019-10-15
  • 平码一肖9a9vj.com:Excel利用VBA事先圆形沿直线移动的效果图教程

    平码三中山论坛 www.mslzq.tw

    一、添加素材

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

    为您推荐

    发表评论

    联系我们

    联系我们

    18511713368

    在线咨询: QQ交谈

    邮箱: [email protected]

    工作时间:周一至周五,9:00-17:30,节假日休息//www.mslzq.tw

    关于本站 || 版权声明 || 免责条款 || 隐私条款 || 平码三中山论坛 || ||

    Copyright??2018 平码三中山论坛 All Rights Reserved·黔ICP备15000265号-2

  • 极限训练锻造“蓝军”利刃,精锐特战队员来了! 2019-11-15
  • 哈尔滨:推进统战工作“四化一体系”建设 2019-11-12
  • 蠢货!咱是让你们看看制订一个企业发展计划要达到哪些要求,难度有多大?一个具体的企业都这么难,大到一个县,一个省,甚至是一个国家,难度可想而知! 2019-11-12
  • 北京天安门广场更换花卉 2019-11-07
  • 《中国道路的成功密码》首发研讨会在京举行 2019-11-07
  • 王国平应邀赴金华市调研并作专题讲座 2019-11-04
  • 真正聪明之人,能在寻常岁月里悟透贞亲人世的惊喜 2019-11-04
  • 忻府区中医下乡进村  为老百姓健康把脉--黄河新闻网 2019-11-04
  • 法制日报:别让世界杯激情冲淡守法意识 2019-11-01
  • 美国又打出2000亿关税牌,中方这300字声明暗藏玄机! 2019-10-27
  • 《斯琴高丽的开心》首发 斯琴高丽给自己生日送礼斯琴高丽 2019-10-27
  • 隋炀帝萧后凤冠仿制品亮相 原件或为李世民赏赐 2019-10-26
  • 中国,向大洋更深处挺进(评论员观察) 2019-10-20
  • 《好色千金》杀青 高冷侍卫刘天宝获赞“武生担当” 2019-10-15
  • 海上洄游时 北海狗 连续两周深睡眠 2019-10-15
  • 海南环岛赛体彩22选5 澳洲幸运8开奖记录 股票融资偿还额啥意思 上海时时乐开奖号码 宁夏11选5开奖分布走势图 澳洲幸运5是真的假的 3d杀组选复式投注技巧 快中彩玩法 北京pk10官网在线计划 股票指数期货