Question

只是从VBA的东西开始......

从我看到的所有示例中，图表的数据基于一系列单元格，如下所示：

Sub UpdateChartSourceData()
  With ActiveSheet
    .ChartObjects(1).Chart.SetSourceData _
        Source:=.Range("ChtSourceData"), _
        PlotBy:=xlColumns
  End With
End Sub

我的例程通过子例程在内部计算一些值，并将这些值存储在变量中，而不是工作表中的单元格中。

我想将这些变量用作图表数据，但无法弄清楚如何将源设置为子例程中的变量而不是单元格区域。

您是否有任何示例的链接？

Answer 1

这不是您问题的答案，但您可以以它为例，尝试解决。

Dim array_value(1 To 10) As Integer
Dim excel_Chart As ChartObject

'Inserting test data - but in your case it has to be done differently
For i = 1 To 10
    array_value(i) = i
Next i

Set excel_Chart = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)

With excel_Chart.Chart
    .ChartType = xl3DColumn
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Values = array_value
End With

希望它会有所帮助：）

Excel 2007 VBA-通过计算的数据创建图表

1 个答案: