如何参考；“激活/选定”；用VBA实现Excel中的图表数据点

我正在寻找一种使用VBA在Excel中引用活动/选定图表数据点的方法

假设我有一个折线图，我想在其中添加一个错误条。但是，我不想将错误条添加到整个系列中，而是只添加到一个选定点。请参见下面的屏幕：

我想做的是添加一个垂直误差条，该误差条指向X轴，如下所示：

我知道如何在Excel中执行此操作，有多种方法，例如，添加新的单点系列，然后添加错误栏。还有其他方法。我遇到的问题是如何引用活动/选定的数据点

如果我想创建一个新的单点系列，我需要知道点编号。我知道（我使用过它）可以使用points对象/方法引用点。遗憾的是，我不知道如何提取选定的点编号、坐标等，以便以后在项目中使用它

我不能添加任何代码，因为我所做的一切都是格式化和使用错误条，以及遍历现有的所有数据点（在这种情况下，代码没有用处）。我要查找的是所选的点信息，因此我可以将其称为.point（x），其中x是我以前提取的点编号，而不必像.point（8）那样立即引用点编号（我不知道具体的编号，因为我只是单击了它）

我已经看到了使用图表事件来提取它的方法，但是这对于我想在我的小简单项目中做的事情来说是一种过分的做法（特别是如何在类模块之外的其他宏中引用“提取”的点）

---

有什么想法吗？非常感谢您提供的所有帮助，因为我在尝试找到引用它的方法3天后就不知所措了。

要获取索引，您可以解析点的，格式如下：

SP

要获取关于该点的更多信息，例如x和y值，您可以执行以下操作：

Sub Test()
    If TypeOf Selection Is Point Then
        Dim p As Point
        Set p = Selection

        Dim i As Long
        i = CLng(Split(p.Name, "P")(1))

        Dim s As Series
        Set s = p.Parent

        Debug.Print s.Values(i) ' Values is a one-based array so you can use the point index to get its corresponding value
        Debug.Print s.XValues(i)
    End If
End Sub

---

要获取索引，可以解析点的，格式如下：

SP

要获取关于该点的更多信息，例如x和y值，您可以执行以下操作：

Sub Test()
    If TypeOf Selection Is Point Then
        Dim p As Point
        Set p = Selection

        Dim i As Long
        i = CLng(Split(p.Name, "P")(1))

        Dim s As Series
        Set s = p.Parent

        Debug.Print s.Values(i) ' Values is a one-based array so you can use the point index to get its corresponding value
        Debug.Print s.XValues(i)
    End If
End Sub

---

这是纯粹的完美！非常感谢你。有没有办法提取更多关于这一点的信息？此时选择的系列值等？非常感谢。您的解决方案清晰、简洁，完全符合我的需要！我想其他人也会受益。乐于助人！这是一个令人愉快的问题，我可以在将来运用这些知识。这是纯粹的完美！非常感谢你。有没有办法提取更多关于这一点的信息？此时选择的系列值等？非常感谢。您的解决方案清晰、简洁，完全符合我的需要！我想其他人也会受益。乐于助人！这是一个令人愉快的问题，我可以在将来运用这些知识。