时间戳

首页 > 解决方案 > Excel 2007 VBA - 通过计算数据创建图表

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

问题描述

刚开始使用这个 VBA 的东西....

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

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

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

我想将这些变量用作图表的数据，但一直无法弄清楚如何将 Source 设置为来自我的子例程而不是一系列单元格的变量。

你有任何例子的链接吗？

标签： excelvbacharts

解决方案

好吧，这不是您问题的答案，但您可以将其作为示例并尝试解决。

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

希望能帮助到你 ：）

推荐阅读