[开_98]半圆动态图制作（已总结）

andysky · 发表于 2006-4-4 10:59

1.图表是动态的（VBA基础知识应用）。
2.图表为半圆形，各线别图表之间有一个空隙。
3.数据标志颜色与图表颜色正好相反。
4.数据标志包括线别和数据。
5.图例是横向的，且有边框、阴影。

请看静态图

WJIGlz7s.rar (68.86 KB, 下载次数: 148)

[此贴子已经被作者于2008-2-11 9:32:09编辑过]

rongjun · 发表于 2006-4-4 15:45

用饼图做了一个：

ctqDHnZF.rar (9.81 KB, 下载次数: 117)

jssy · 发表于 2006-4-7 13:39

做一个凑个热闹

YHRKCvZ0.rar (4.12 KB, 下载次数: 91)

nyqnyq · 发表于 2006-4-7 14:58

能把详细过程做个录像的形式公布出来吗.?/

流浪的老虎 · 发表于 2006-4-9 10:38

我来做一个。

3RrIcpW4.rar (7.5 KB, 下载次数: 75)

[此贴子已经被作者于2006-4-9 10:45:23编辑过]

andysky · 发表于 2006-5-9 12:51

q6n8Rjtm.rar (7.47 KB, 下载次数: 125) 总结：此表有两个重点。 1.扇形图默认为整圆，而要显示半圆需要增加一个辅助单元格。值等于ABC线之和。图表完成后将该辅助部分调整为透明即可。 2.动态效果：代码很简单，只要使A线之值每秒钟增加速个百分点，达到达85%时重新开始即可。致于其它诸如颜色之调配、线条之粗细只是入门级知识，不用多说。 Sub YY() Static AA As Single AA = Range("c3").Value AA = AA + 0.05 If Range("c3") < 0.85 Then Range("c3").Value = AA If Range("c3").Value >= 0.85 Then Range("c3").Value = AA - 0.85 End If End If Application.OnTime Now + TimeValue("00:00:01"), "YY" End Sub

nyqnyq · 发表于 2006-5-11 18:58

不好意思哟,能说的再详细些吗,有些看不懂,还是弄不出来.

烟雨任平生 · 发表于 2006-5-12 14:24

顶！有意思。

好好学习。

小青蛙 · 发表于 2006-5-12 14:31

好好学习！

okmhy · 发表于 2006-5-24 10:47

各位大侠请指教[em04]

UgViIqCS.rar (86.95 KB, 下载次数: 57)

[此贴子已经被作者于2006-5-24 10:47:54编辑过]

		自动登录	找回密码
密码			免费注册

[Excel 图表] [开_98]半圆动态图制作（已总结）

总结

我也来一个,刚学会的