Sub SelectPointFromChart()
If TypeName(Selection) = "Point" Then
Dim ser As Long, pt As Long
ser = Split(Split(Selection.Name, "S")(1), "P")(0)
pt = Split(Split(Selection.Name, "S")(1), "P")(1)
Dim sf As String, x As Range, y As Range
sf = ActiveChart.SeriesCollection(ser).Formula
Set x = Range(Split(sf, ",")(1))
Set y = Range(Split(sf, ",")(2))
Union(x(pt), y(pt)).Select
End If
End Sub
首先,您需要选择一个图表和其中的一个点。然后运行如下宏:
执行宏后,将选定图表点的2个具有
x
和值的单元格。y