使用 VBA 将数据点添加到 Excel 图表

Question

我有一个图表对象，有 3 个系列。该系列从 C1:C10、D1:D10 和 E1:E10 范围内获取 Y 值。该值取决于 A1:A10 中的值（例如 C1 = A1+6）；但我将这些值与 B1:10 中的值绘制成图表（它是一个对数正态图）。

我正在计算 VBA 中的值。由于 A1:A10 中只有离散数量的点，我想在图表中添加一些额外的兴趣点。所以如果 A1:A10 包含整数 1 到 10，我想绘制一个像 3.5 这样的十进制数，而不必在工作表中添加任何新行。

环顾四周，我认为这将是 Extend 方法（MSDN - Extend Method），但我不知道如何：

1. 扩展特定系列（例如仅向系列 C1:C10 和 D1:D10 添加点
2. 如何在不添加数据点的情况下 需要将单元格添加到 工作表。

任何帮助将不胜感激。 谢谢

Answer 1

问题 2

您可以使用系列对象的 value 属性设置单个系列的值。

但是，在帮助中，它指出系列中的值可以是

一个工作表上的范围或一个常量值数组，

但不是两者都。

这意味着如果您想将系列值指定为范围，例如 C1:C10，那么我认为如果您想在系列中添加数据点，则必须添加单元格。

如果不想添加单元格，则必须将所有值指定为数组常量。

问题 1

要将数据点添加到特定系列，我相信您必须选择系列，并修改 Values 和 XValues 属性。

示例：

将此数据放入 Excel 的“Sheet1”中，并将其绘制为“Chart1”。 y1 将是系列 1，y2 将是系列 2，y3 将是系列 3。

     A    B     C     D
1    x    y1    y2    y3
2    1    10    100   400
3    2    20    200   500
4    3    30    300   600

现在，让我们向 y2 添加一个数据点。

     A    B     C     D
1    x    y1    y2    y3
2    1    10    100   400
3    2    20    200   500
4    3    30    300   600
5    4          1000

我们必须选择系列（按编号或名称，在本例中为 2 或“y2”）并将 Value 属性设置为“C2:C5”

'using ranges
Charts("chart1").SeriesCollection("y2").Values = Worksheets("Sheet1").Range("C2:C5")

'using array constant
Charts("chart1").SeriesCollection("y2").Values = Array(100, 200, 300, 1000)

我们还将更改 XValues 属性，以便每个 Value 都有一个 XValue

'using ranges
Charts("chart1").SeriesCollection("y2").XValues = Worksheets("Sheet1").Range("A2:A5")

'using array constant
Charts("chart1").SeriesCollection("y2").XValues = Array(1, 2, 3, 4)

注意：

我们可以将 Values 作为一个范围，将 XValues 作为一个数组常量，反之亦然。

我们还可以将 Values 和 XValues 都作为范围或同时作为数组常量。

我们不能将值作为范围和数组常量。

我们不能将 XValues 作为范围和数组常量。