突出你的百分比 Excel圆环进度条动画制作详解 图文

2019年7月13日18:40:31 评论 703 views

动画镇楼

关键词:环形图,图表美化,圆环形百分比,PPT图表,动态图表

环形分比效果

操作步骤

首先我们先得做好这个圆环百分比样式

注意文章末尾有福利,请耐心看完哈^^

▼步骤一:准备好原始数据。

▼步骤二:选中原始数据,在工具栏中点击"插入"-->"其他图表"-->"环形图",选中图表,点击"图表工具"-->"设计"-->"切换行/列"。

▼步骤三:选中图表,右键点击"设置数据系列格式",将圆环图内径大小改为60%,按住DELETE,删除"图例",如果要然圆环比较细,就改大这个值

▼步骤四:插入"文本框","横排文本框",点击文本框,在山方"编辑栏"中输入公式,这步是为了让百分比修改的时候能让文本框这个大百分比数字联动,确定完成。

步骤五:将文本框移动到环形图内,选中图表,选择无线条颜色,无填充颜色,如下图所示。

步骤六:根据需求调整图表大小及颜色,美化图表。

动画部分由VBA代码实现

在画图的表,下面表名标签上右键查看代码,粘贴下面代码,大功告成,是不是很简单!

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$2" Then 开始

End Sub

Sub 开始()

Application.EnableEvents = False '临时禁止单元格改变的事件

For i = 0 To [C2] * 100 '从0递增百分比到当前值 形成动画效果

[C2] = i / 100

delay 0.002 '利用延迟让增加动画时长 要快就改小 要慢就该打

Next

Application.EnableEvents = True

End Sub

Sub delay(ts) '通用系统延时等待函数

Dim t, t1

t = Timer

Do

t1 = Timer

If t1 < t Then t1 = 86400 + t1

DoEvents

Loop Until t1 - ts > t

End Sub

看完的朋友有福利!

关注微信公众号Excel880 回复 图表58 即可下载58套精美图表模板

表格定制开发服务可加微信Excel880A

  • 微信扫码免费学习
  • 免费学习48小时
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin

发表评论

您必须才能发表评论!