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

single_star

boyou3039 发表于 2011-11-2 07:48
比较多
先上一例看看是否是我操作的错误
2007打开后没有运行宏的时候表示是正常的，运行宏后就不对了

这样看来似乎是宏没有正常运作所致,你把以下宏中的
On Error Resume Next
myChartClass.SeriesCollection(i).DataLabels.Delete
删掉或注解后再运行看错误原因
'******************************************
Private Sub myChartClass_Calculate()
'Application.EnableEvents = False

n = myChartClass.SeriesCollection.Count
If n = 0 Then Exit Sub
ref1 = ActiveWorkbook.Names("log1").RefersToRange
ref2 = ActiveWorkbook.Names("chart1").RefersToRange
For i = 1 To n
p = myChartClass.SeriesCollection(i).Points.Count
If p = 0 Then Exit For
'On Error Resume Next
'myChartClass.SeriesCollection(i).DataLabels.Delete
myChartClass.SeriesCollection(i).DataLabels.Delete
myChartClass.SeriesCollection(i).ApplyDataLabels AutoText:=True, ShowValue:=True
For j = 1 To p
a = Val(myChartClass.SeriesCollection(i).Points(j).DataLabel.Characters.Text)
b = Application.WorksheetFunction.Match(a, ref1, 1)
c = Application.WorksheetFunction.Index(ref2, b)
myChartClass.SeriesCollection(i).Points(j).DataLabel.Characters.Text = c
Set d = Range("chart1").Offset(b - 1, 0).Resize(1, 1).Font
With myChartClass.SeriesCollection(i).Points(j).DataLabel.Font
.Name = d.Name
.Size = d.Size
.ColorIndex = d.ColorIndex
End With
Next
Next
'Application.EnableEvents = True
End Sub

boyou3039

single_star 发表于 2011-11-2 08:57
这样看来似乎是宏没有正常运作所致,你把以下宏中的
On Error Resume Next删掉或注解再运行看错误原因
...

On Error Resume Next
这句删除后
情况和以前一样
运行宏后就变错了

single_star

我把代码改了一下,你再试试看...(按'F9'刷新后应有提示'Finish!')
ps.程式中断或增删宏后必需重新Initializechar()才会引发图表事件

miaoa

感谢楼主啊！！！
谢谢分享，大家共同进步：）

single_star

6楼新增'依数据最大值设定图表Y轴刻度'(autoscale,2011/11/10新增)

allure-love2010

真的是好东东来的，正需要这些呢，谢谢

mostin

自动排序及依名称固定颜色的饼图
请问这个宏怎么录制啊。或者说我想使用类似的宏，怎么做呢。谢谢。

single_star

mostin 发表于 2011-11-11 11:21
自动排序及依名称固定颜色的饼图
请问这个宏怎么录制啊。或者说我想使用类似的宏，怎么做呢。谢谢。

这个帖的一些范例都是图表事件的应用,要使其产生作用就必須先建立新的類別模組，並宣告含有事件的 Chart 類型物件
'**********************************************************************************************
內嵌圖表事件的用法(宏里面的说明有详细的范例及说明)
特定預設情況下，圖表工作表的事件都是可用的。但在使用具有 Chart 物件、且此物件代表內嵌圖表的事件之前，必須先建立新的類別模組，並宣告含有事件的 Chart 類型物件。例如，假設建立了名為 EventClassModule 的新類別模組，而該模組內包含下列程式碼。

Public WithEvents myChartClass As Chart
               
在宣告含有事件的新物件之後，該物件將出現在類別模組的 [物件] 下拉式清單方塊內；此時您就可為該物件編寫事件處理程序了。(在 [物件] 下拉式清單方塊內指定該物件後，[程序] 下拉式清單方塊內將列出該物件的有效事件)。

但是，在事件處理程序執行之前，必須將類別模組中的宣告物件與內嵌圖表連接。您可從任意的模組中用下列程式碼來完成這一動作。

Dim myClassModule As New EventClassModule

Sub InitializeChart()
    Set myClassModule.myChartClass = _
        Worksheets(1).ChartObjects(1).Chart
End Sub
               
執行 [初始化圖表] 程序之後，類別模組中的 myChartClass 物件將指向工作表一上的內嵌圖表一，並且當事件發生時，將引發類別模組中的事件程序。
ps.自动排序及依名称固定颜色的饼图用的是myChartClass_Calculate()图表事件

Excellover

有用，谢谢。我会仔细研究学习的

Excellover

有些图标好像不能完全实现功能。我的Excel是2010版本的。会不会是这一个原因啊