微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
前面讲了2个逼格满满的百分比图形
今天再给大家带来一个五边形图形的注水效果及步骤,具体步骤可参考圆形水箱,思路大同小异
这里主要介绍动画的代码
首先看效果
制作步骤参考 Excel中制作高逼格圆形水箱效果百分比图形
原作者“”提线木偶 整理及动画制作: 百度不到去谷歌
步骤
1选择数据插入柱形图,右键选择数据,切换行列
2选中柱子,右键设置系列格式,重叠为100%与间距为0%
3设置刻度值最大1,最小0
4绘制同心五边形2个,一个空心一个实心
5复制空心五边形,单独选中上方柱子,右键格式-填充-填充图片-剪贴板
填充图案时设置层叠并缩放为1
6复制实心五边形,按五重复操作下方柱子
7插入文半框,编辑栏输入=B2,填充及边框设为无拖到五边形中间,改样式
动画部分 代码
Sub 动画()
n = [K1] '控制速度
For i = 1 To 100 * n '通过100限值的倍数缩放来变速
[C4] = i / n '当前进度
[K1].Select
DoEvents
Next
End Sub
代码插入到模块中 在表中画个矩形设置宏点击即可
本示例文件可到本群领取
好吧 最后再来一发烧杯注水动画 JUST FOR FUN!
2018年3月8日 下午6:04 板凳
厉害厉害!
2018年2月5日 下午1:57 沙发
漂亮!