我录制宏，只得到如下内容
ActiveChart.SeriesCollection(5).Points(10).Select
……
但怎么在Selection中得到这个5和10。
罗嗦点就是如何知道这个选定点是SeriesCollection(5)而不是SeriesCollection(3)；是Points(10)而不是Points(9)？
下一步又怎么得到选定点引用数据ROW和COLUMN
7 个解决方案
#1
无奈地顶
#2
看你也是挺着急的。
先简单这样吧，有时间再细细看：
先简单这样吧，有时间再细细看：
Sub ChartInfo()
Set p = Selection
If TypeName(p) = "Series" Then
MsgBox "你选择了序列 " & p.Name & " 。"
ElseIf TypeName(p) = "Point" Then
MsgBox "你选择了序列 " & p.Parent.Name & " 上的一个点。"
End If
End Sub
#3
先谢谢，知道了SeriesCollection
还有怎么得到Points（？）
还有怎么得到Points（？）
#4
危险地顶，再顶一次又要重新开帖了。
#5
一般用类似这样的方法获取Chart中被点击的Point的信息：
以上事件过程用在Chart模块中，也就是独立的图表工作表的模块中。如果图表嵌入在其它数据工作表中，那就要用到类模块，用该类对象实例的用WithEvents关键字声明的Chart类型变量的事件处理程序来实现，处理程序中用到的方法也是GetChartElement。如果是后一种情况下次再探讨。
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
If ElementID = xlSeries Then _
MsgBox "You clicked point " & Arg2 & " in series " & Arg1 & ".", , "ClickChart Message"
End Sub
以上事件过程用在Chart模块中，也就是独立的图表工作表的模块中。如果图表嵌入在其它数据工作表中，那就要用到类模块，用该类对象实例的用WithEvents关键字声明的Chart类型变量的事件处理程序来实现，处理程序中用到的方法也是GetChartElement。如果是后一种情况下次再探讨。
#6
谢谢，旧帖恭候光临，上面还有20分。
#1
无奈地顶
#2
看你也是挺着急的。
先简单这样吧，有时间再细细看：
先简单这样吧，有时间再细细看：
Sub ChartInfo()
Set p = Selection
If TypeName(p) = "Series" Then
MsgBox "你选择了序列 " & p.Name & " 。"
ElseIf TypeName(p) = "Point" Then
MsgBox "你选择了序列 " & p.Parent.Name & " 上的一个点。"
End If
End Sub
#3
先谢谢，知道了SeriesCollection
还有怎么得到Points（？）
还有怎么得到Points（？）
#4
危险地顶，再顶一次又要重新开帖了。
#5
一般用类似这样的方法获取Chart中被点击的Point的信息：
以上事件过程用在Chart模块中，也就是独立的图表工作表的模块中。如果图表嵌入在其它数据工作表中，那就要用到类模块，用该类对象实例的用WithEvents关键字声明的Chart类型变量的事件处理程序来实现，处理程序中用到的方法也是GetChartElement。如果是后一种情况下次再探讨。
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
If ElementID = xlSeries Then _
MsgBox "You clicked point " & Arg2 & " in series " & Arg1 & ".", , "ClickChart Message"
End Sub
以上事件过程用在Chart模块中，也就是独立的图表工作表的模块中。如果图表嵌入在其它数据工作表中，那就要用到类模块，用该类对象实例的用WithEvents关键字声明的Chart类型变量的事件处理程序来实现，处理程序中用到的方法也是GetChartElement。如果是后一种情况下次再探讨。
#6
谢谢，旧帖恭候光临，上面还有20分。