получаю ошибку
нельзя присвоить свойство Value слассу Series
код следующий
Dim a(), x() As Variant
k = 81
ReDim a(k)
ReDim x(k)
For i = 0 To k
a(i) = i
x(i) = i
Next i
Sheets.Add Type:=xlChart, After:=Sheets(Sheets.count)
ActiveSheet.Move After:=Sheets(Sheets.count)
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlXYScatter
With ActiveChart
.Name = "Figure test"
.HasTitle = True
.ChartTitle.Characters.Text = "Figure Test"
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = x
.SeriesCollection(1).Values = a
.SeriesCollection(1).Name = "test"
End With
а если число элементов в массиве меньше 81 (k=80)
все работает ))
где ограничение в Excelle? работаю с XP
и еще проблема если присваиваю single тоже самое
не работает с более чем 20 элементами (((
