计算折线图上两点的角度

Question

我想获得折线图上两点的角度。 我知道如何计算角度，问题是我需要 seriescollection.point 的 x 和 y，但我不知道如何获取它。

有人可以帮我吗？

编辑：

Jean-François Corbett 向我展示了如何获取点，我的意思是从顶部和左侧，而不是图表上的点（在 X 比例和 Y 比例上），尽管它可以工作。 我算错了。如何计算下图中的角度？

Answer 1

您询问如何获取图表系列中点的 (x,y) 坐标。方法如下：

Dim c As Chart
Dim s As Series
Dim x As Variant
Dim y As Variant

Set c = ActiveChart
Set s = c.SeriesCollection.Item(1)

x = s.XValues
y = s.Values

编辑 据我从编辑的问题中可以看出，OP现在想要每个点的像素坐标，原点位于绘图的左上角。为此，您只需按轴宽度和跨度进行缩放即可。对于线图（我讨厌），x 轴有点棘手，因为没有最小或最大比例属性；必须使用“类别”的数量来代替。以下代码执行此缩放：

Dim c As Chart
Dim s As Series
Dim xa As Axis
Dim ya As Axis
Dim x As Variant
Dim y As Variant
Dim i As Long

Set c = ActiveChart
Set s = c.SeriesCollection.Item(1)
Set xa = c.Axes(xlCategory)
Set ya = c.Axes(xlValue)

x = s.XValues
y = s.Values
For i = LBound(x) To UBound(x)
    ' Scale x by number of categories, equal to UBound(x) - LBound(x) + 1
    x(i) = (i - LBound(x) + 0.5) / (UBound(x) - LBound(x) + 1) * xa.Width
    ' Scale y by axis span
    y(i) = ya.Height - y(i) / (ya.MaximumScale - ya.MinimumScale) * ya.Height
Next i

请注意，y 沿绘图上的负 y 方向增加，因为您希望原点位于左上角。

使用此 x 和 y，您可以计算屏幕上看到的角度。

Answer 2

X 和 Y 值不能直接从 Point 对象访问（据我所知），但它们代表传递的实际值到图表。尝试从存储它们的工作表中访问它们。

如果该方法不可用，请尝试使用 Series.values（它返回 Y 值数组）和 Series.XValues（它返回 X 值数组）。 （请参阅 MSDN 参考）