Excel 2007 VBA - создать диаграмму на основе рассчитанных данных

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

Надеюсь, это поможет:)