• 好莱坞环球影城“功夫熊猫”主题剧院开放 2019-09-23
  • TapTap恢复下载服务 整改三个月带来内忧外患 2019-09-23
  • 经营者要想“我心换你心”,就要未雨绸缪,让不诚信的诱惑少一点,如此才能在市场中生存下来。反过来说,承担不起亏损就关门歇业,是否也是一种不诚信呢? 2019-09-14
  • 上海市陆家嘴:打造社区多元治理“共同体” 2019-09-14
  • 2017最具体育活力城市排行榜 2019-09-14
  • 李克勤献唱央视“世界杯主题歌” 2018国语专辑筹备中李克勤 世界杯 2019-09-08
  • 回复@看着就想笑:难道公有制社会主义就不能生存发展吗?事实上公有制会生存发展的更好! 2019-09-03
  • 陵川县全力推进乡村振兴战略 2019-09-01
  • 周国平:男女之爱已经很强烈了,但亲子之爱更强烈 2019-09-01
  • 出租广州市荔湾区芳村大道东169号 2019-08-29
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-08-21
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-08-20
  • 你这纯粹是胡说八道!农民的宅基地,需要交钱才能使用吗?你敢推行这样的政策吗?你也只敢推行对工人的住宅地,要交钱才能使用!这样合理吗?那些交不起房钱的人,难道应该 2019-08-13
  • 西部网(陕西新闻网)硬科技频道 2019-08-13
  • 新华时评:成果不易,更需诚意与信任呵护 2019-08-09
  • 6个平码复式3中3: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、实现动画:按下“开始”控制按钮即可实现圆形先向右移动,然后向左移动。

    为您推荐

    发表评论

    联系我们

    联系我们

    在线咨询: QQ交谈

    地址:中国·贵州·贵阳 友情链接QQ:1034559333 本站QQ群:123733639
    关注微信
    微信扫一扫关注我们

    微信扫一扫关注我们

    关注微博
    返回顶部

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

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

  • 好莱坞环球影城“功夫熊猫”主题剧院开放 2019-09-23
  • TapTap恢复下载服务 整改三个月带来内忧外患 2019-09-23
  • 经营者要想“我心换你心”,就要未雨绸缪,让不诚信的诱惑少一点,如此才能在市场中生存下来。反过来说,承担不起亏损就关门歇业,是否也是一种不诚信呢? 2019-09-14
  • 上海市陆家嘴:打造社区多元治理“共同体” 2019-09-14
  • 2017最具体育活力城市排行榜 2019-09-14
  • 李克勤献唱央视“世界杯主题歌” 2018国语专辑筹备中李克勤 世界杯 2019-09-08
  • 回复@看着就想笑:难道公有制社会主义就不能生存发展吗?事实上公有制会生存发展的更好! 2019-09-03
  • 陵川县全力推进乡村振兴战略 2019-09-01
  • 周国平:男女之爱已经很强烈了,但亲子之爱更强烈 2019-09-01
  • 出租广州市荔湾区芳村大道东169号 2019-08-29
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-08-21
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-08-20
  • 你这纯粹是胡说八道!农民的宅基地,需要交钱才能使用吗?你敢推行这样的政策吗?你也只敢推行对工人的住宅地,要交钱才能使用!这样合理吗?那些交不起房钱的人,难道应该 2019-08-13
  • 西部网(陕西新闻网)硬科技频道 2019-08-13
  • 新华时评:成果不易,更需诚意与信任呵护 2019-08-09
  • 腾讯分分彩五星一码计划技巧 3d历史今天试机号查询 超级大乐透走势图带坐标连线图 黑龙江福彩网p62 网赌系统怎样锁定玩家 急速赛app 2019035期开奖结果 澳门老虎机网址是多少 游戏直播软件排行2018 鞍山麻将什么是飘胡