图表事件应用范例汇总(共40+例Chartevents)

single_star · 发表于 2010-4-17 10:57

本帖最后由 single_star 于 2013-3-20 10:03 编辑

善加利用图表事件编写少许代码即可以让图表更加美观灵活及方便使用,
实现一般图表无法达到的效果及作用.
(目前1~8楼共有50多个图表事件应用范例,会再陆续增加及完善相关范例...)

欢迎大家多加捧场,如有个别需求或疑问请不吝提出,我会尽能力所及加以回答的,ThanKS!
********************************************************************************
想知道如何引用图表事件者可参考以下链接帖(适合不懂图表事件但具VBA基础者参考使用;也适合作为
图表事件进阶应用充实用)
http://club.excelhome.net/thread-790381-1-1.html

利用API转换图表鼠标坐标可参考以下帖。。。
http://club.excelhome.net/thread-864752-1-1.html
***************************************************************************************************
帖子近期更新启示:(2012/4月后更新将不在此提示)
2楼新增'适合数据差异大的双轴柱状图+折线图的另类截断图(分层图)'(Chart2-8-2,2012/3/13新增）
2楼新增'可设定双断轴的自定义刻度截断图'(Chart2-9,2012/2/29新增）
2楼新增'各分层可设不同背景色的另类截断图'(Chart2-8,2012/2/24新增)
2楼新增'点数据点方显示对应内容的散点图'(Chart2-3,2012/2/14新增)
3楼新增'散点图折线及数据自动依设定区间(Y值范围)进行分段及变色'(color-line4,1/29/2012新增)
1楼新增'可依数值状态自动传回对应字符并使柱形显示对应填充颜色'(Chart1-5&Chart1-5-2,2012/1/5新增）

***************************************************************************************************
可依数值范围自动传回对应字符(可设字型大小及颜色)

Chart1-1-2.rar (15.23 KB, 下载次数: 4682)

Chart1-1.rar (12.68 KB, 下载次数: 7476)

可依数值状态自动传回对应字符

Chart1-2.rar (17.55 KB, 下载次数: 4627)

可依数值状态自动传回对应字符2(可设前后缀及标签字型或不显示标签）
(2010/10/20更新使隐藏数据后仍可依图表选项设定正常动态显示数据标签内容)

Chart1-4.rar (18.8 KB, 下载次数: 3319)

可依数值状态自动传回对应字符并使柱形显示对应填充颜色(可设前后缀及标签字型或不显示标签,2012/1/5新增）
Chart1-5.rar (19.86 KB, 下载次数: 2495)

2012-4-6 09:44 上传
点击文件名下载附件

Chart1-5-3.rar (26.61 KB, 下载次数: 2343)

2012-4-6 09:44 上传
点击文件名下载附件

可依数据对应状态设定显示数据前后缀描述、数据批注内容及字型(含上下标)并设定柱形填充指定颜色(2012/1/10新增）

Chart1-5-4.rar (29.59 KB, 下载次数: 2473)

多功能数据标签动态修改工具(可设数据格式、字型、上下标并加注解、图标等 ,2012/9/12修订补充使用说明)

chartlabel2.rar (273.41 KB, 下载次数: 3322)

single_star · 发表于 2010-4-17 10:58

本帖最后由 single_star 于 2013-3-26 10:33 编辑

可设定双断轴的自定义刻度截断图(Chart2-9,2012/2/29新增）
Chart2-9.rar (16.84 KB, 下载次数: 2402)

2013-3-26 10:33 上传
点击文件名下载附件

散点图数据标签自动标示对应名称

Chart2-1.rar (13.47 KB, 下载次数: 4869)
汽泡图数据标签自动标示对应名称

Chart2-1-2.rar (14.73 KB, 下载次数: 2337)
汽泡图数据标签自动标示对应名称及颜色(可筛选并设定数据点汽泡显示固定颜色)

Chart2-1-3.rar (15.8 KB, 下载次数: 2506)

chart2&chart1的结合应用(图文并茂的数据标签)

Chart2-2.rar (14.98 KB, 下载次数: 3822)

Chart2-2-2.rar (16.48 KB, 下载次数: 1468)

点数据点显示对应内容数据标签的散点图(Chart2-3,2012/2/14新增)

Chart2-3.rar (21.81 KB, 下载次数: 1869)

自定义文字X轴的散点图(依单元格底色及字形设定X轴文字格式)
(Chart2-5-2,2011/11/2更新增加粗体及背景颜色等字型设定)

Chart2-5-2.rar (15.79 KB, 下载次数: 2677)

散点图数据标签自动标示对应名称2
(灵活的散点图数据标签,点选数据点会显示详细内容；来源资料筛选后也可自动正常显示)

Chart2-6.rar (18.33 KB, 下载次数: 2507)

另类截断图,超出管制线的点会自动变色！。。(Chart2-7,2011/10/16）
(可将数据差距大图表自动进行自定义区间转换并显示数据Y值，个位数~6位数都可在图表上显示清楚。）
Chart2-7.rar (15.58 KB, 下载次数: 2215)

2011-10-26 11:28 上传
点击文件名下载附件

适合多系列数据的另类截断图(Chart2-7-2,增加最大Y轴刻度设定判定,2011/10/16)

Chart2-7-2.rar (16.07 KB, 下载次数: 2027)

各分层可设不同背景色的另类截断图(Chart2-8,2012/2/24新增)
Chart2-8.rar (16.83 KB, 下载次数: 1668)

2012-2-27 16:18 上传
点击文件名下载附件

适合数据差异大的双轴柱状图+折线图的另类截断图(分层图,Chart2-8-2,2012/3/13新增)

Chart2-8-2.rar (19.36 KB, 下载次数: 2090)

点选图例或数据列即可单独放大显示对应数据列的多Y轴图(点选其他处则回复全部，autoscale3,2012/7/24新增)

autoscale3.rar (25.17 KB, 下载次数: 1533)

single_star · 发表于 2010-4-17 11:00

本帖最后由 single_star 于 2013-2-21 16:17 编辑

将散点图折线依设定区间(Y值范围)自动进行分段及着色(12/12/2011新增)

color-line2.rar (25.47 KB, 下载次数: 1797)
散点图折线及数据自动依设定区间(Y值范围)进行分段及变色(1/29/2012新增)

color-line4.rar (280 Bytes, 下载次数: 1718)

使饼图/柱形图自动依单元格设定底色及字型变换填充颜色及数据标签字型(12/08/2011新增)

auto_color.rar (280 Bytes, 下载次数: 1922)

自动排序及依名称固定颜色并排除零值项目的动态饼图(2/19/2013修改)

Chart3-2-2.rar (14.7 KB, 下载次数: 4682)

自动排序及变换刻度大小的柏拉图

Chart9.rar (17.87 KB, 下载次数: 4400)

自动排序及变换刻度大小的柏拉图2
图表增加数据单项不良率及不良总计功能(10/27/2011)

Chart9-1-2.rar (280 Bytes, 下载次数: 1808)

工作簿所有的图表柱形自动依数据范围变换颜色(11/24/2011)

Chart9-2-3.rar (14.62 KB, 下载次数: 1850)

自动排序并依数据范围变换颜色的柱形图

Chart9-2.rar (16.99 KB, 下载次数: 2131)

single_star · 发表于 2010-4-17 11:02

本帖最后由 single_star 于 2013-3-10 08:51 编辑

动态填充颜色的中国地图(2013/02/07新增)
china map.rar (39.47 KB, 下载次数: 1775)

2013-3-10 08:51 上传
点击文件名下载附件

mousemove的应用:移到那就变色

Chart4.rar (24.97 KB, 下载次数: 4822)

选定图表后随鼠标移动所在图表区位置显示数据标签

Chart4-2.rar (13.51 KB, 下载次数: 2051)

点选绘图区自动求出X-values垂线与曲线的交点(2011/12/04新增)

point3.rar (24.77 KB, 下载次数: 1544)

可放大缩小卷动显示的世界地图（2012/04/07新增）

Chart7-4-7.rar (162.65 KB, 下载次数: 1758)

可放大缩小卷动显示的世界地图2（2012/07/31新增）
应用API取得不同设置(显示比例)状况下座標單位轉換為螢幕像素的换算值

Chart7-4-8.rar (166.36 KB, 下载次数: 1626)

single_star · 发表于 2010-4-17 11:05

本帖最后由 single_star 于 2011-12-4 15:44 编辑

可点选数据点进行分项细部展开的动态饼图

Chart5.rar (14.38 KB, 下载次数: 4486)
可点选饼图数据点进行二次细部展开的动态饼图!(2011/10/28新增)

Chart5-1-2.rar (13.65 KB, 下载次数: 1846)

点选数据点显示对应说明

Chart5-2.rar (14.56 KB, 下载次数: 3582)

点选数据点显示对应说明2(直接从图中知道你想要的资讯)

Chart5-3.rar (20.7 KB, 下载次数: 2926)

[ 本帖最后由 single_star 于 2010-9-21 14:00 编辑 ]

single_star · 发表于 2010-4-17 11:08

本帖最后由 single_star 于 2013-1-9 10:20 编辑

具动画演示效果的星空图(2011/12/23新增)
nightsky3.rar (280 Bytes, 下载次数: 1777)

2011-12-29 08:54 上传
点击文件名下载附件

定义刻度范围的动态函数图形

Chart6.rar (280 Bytes, 下载次数: 3853)

依数据最大值设定图表Y轴最大刻度及主要刻度间距(2011/11/10新增,可另存为加载宏)

autoscale.rar (280 Bytes, 下载次数: 1637)

依数据最大及最小值设定图表Y轴最大及最小刻度及主要刻度间距(2011/11/23更新后替换旧档,可另存为加载宏)

autoscale2.rar (280 Bytes, 下载次数: 2057)

自动固定柱形宽度的动态图表

chart8.rar (25.07 KB, 下载次数: 2734)

自动固定折线刻度间距(宽度)的动态图表(2012/05/17新增)

chart8-1.rar (280 Bytes, 下载次数: 1364)

wjzwang · 发表于 2010-4-17 11:11

利害,感谢分享~~

single_star · 发表于 2010-4-17 11:25

本帖最后由 single_star 于 2011-12-25 16:12 编辑

点击图表数据点后将自动选取对应单元格

Chart7.rar (54.76 KB, 下载次数: 4489)
点选图表数据点后直接选择对应单元格的加载宏(2011/12/2更新修正使筛选隐藏后可正常显示)

Select_Cell.rar (280 Bytes, 下载次数: 1521)

点图表数据点画线

Chart7-2.rar (17.71 KB, 下载次数: 2883)

点击图表数据点显示单元格注解内容

Chart7-5.rar (19.95 KB, 下载次数: 2166)

可直接在图表上画图的散点图！(把图表当画图板, 我的头像就是在图表上画出来的)
(*注意!显示比例请设成100%,图表需能全部显示,如此才可正常画图)

Chart7-4.rar (18.84 KB, 下载次数: 2544)

Chart7-4-2.rar (35.64 KB, 下载次数: 1762)
新版散点图绘图程序,可设定5种数据线颜色等类型进行编辑绘图(2011/12/1/新增)

Chart7-4-6.rar (280 Bytes, 下载次数: 1569)

[ 本帖最后由 single_star 于 2011-4-2 11:40 编辑 ]

dul · 发表于 2010-4-17 11:35

非常好的东西,对于学习如何使用VBA类模块来响应图表事件提供了很好的范本
这个和PPT的VBA编程有很多地方类似
关于VBA的图表事件,在John Walkenbach的《Excel 图表宝典》中有讲到，但在论坛少有看到此类案例

图表版内容得到很好补充

pdamen · 发表于 2010-4-17 11:55

有用，谢谢！

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

[分享] 图表事件应用范例汇总(共40+例Chartevents)

评分

评分

评分

评分

评分