Здравствуйте,
Не могу решить задачу... необходимо построить график с несколькими рядами данных (источник данных Microsoft Office Spreadsheet 11.0)
таблица вида:
заголовоки ряда 1 | значения ряда 1 | заголовоки ряда 2 | значения ряда 2 | ...
написал код, но график формируется только с одним рядом данных, остальные почему то не заполняются... создаются ряды, но данными не заполняются... может найдете в чем моя ошибка..
спасибо
Dim objChart, aHeaders(100), aValues(100)
Dim chrtName As String
Set objChart = Forms!frmCharts!owcChart
With objChart
.Clear
.Border.Color = chColorAutomatic
.Charts.Add
With .Charts(0)
.Type = chChartTypeLine
.HasTitle = True
.Title.Caption = "ТОВАР"
.Title.Font.Bold = True
.Title.Font.Name = "Tahoma"
.Title.Font.Size = 10
' .SeriesCollection.Add
ccc = 0
With Forms!frmReportCross!owcReportCross.Worksheets("Данные")
For i = 1 To CLng(Forms!frmReportCross!txtP)
c = 0
cc = 0
objChart.Charts(0).SeriesCollection.Add
For ii = 1 To CLng(Forms!frmReportCross!txtRows)
If (i Mod 2) = 1 Then
If ii = 1 Then
objChart.Charts(0).SeriesCollection(ccc).Name = .Cells(ii, i).Value
ElseIf ii > 6 Then
' If IsNull(.Cells(ii, i).Value) Then GoTo gni
aHeaders(c) = .Cells(ii, i).Value
c = c + 1
End If
Else
' If cc = c Then GoTo gni
aValues(cc) = .Cells(ii, i).Value
cc = cc + 1
End If
gnii:
Next ii
gni:
objChart.Charts(0).SeriesCollection(сcc).SetData chDimCategories, chDataLiteral, aHeaders
objChart.Charts(0).SeriesCollection(ссc).SetData chDimValues, chDataLiteral, aValues
ccc = ccc + 1
aHeaders(c) = Null
aValues(cc) = Null
Next i
End With
.HasLegend = True
End With
End With