описание проблемы :
есть макрос в Excel2003 VBA
в userform'е мне необходимо было отразить график - поскольку напрямую диаграмму вставить нельзя, я содавал диаграмму в отдельном листе, экспортировал в gif и вставлял в userform -все работало ок но только вот беда -изображение было плохого качества тк график большой, а места под него- мало.
почитал я книжек всяких и решил сделать график средствами OWC
вот примерный код в userforme
- Код: Выделить всё
Sub CreateChart()
'
Dim Chart1 As ChChart 'WCChart
Dim Series1 As ChSeries 'WCSeries
Dim r As Integer
Dim XValues(1 To 132)
Dim DataValues(1 To 132)
' Add a chart to the ChartSpace
Set Chart1 = ChartSpace1.Charts.Add
' Give it a title
With Chart1
.HasTitle = True
.Title.Caption = Range("B1")
End With
For r = 2 To 133
XValues(r - 1) = Cells(1, r)
DataValues(r - 1) = Cells(2, r)
Next r
' Create a chart series
Set Series1 = Chart1.SeriesCollection.Add
' Specify chart type and data
With Series1
.Type = chChartTypeLine
.SetData chDimCategories, chDataLiteral, XValues
.SetData chDimValues, chDataLiteral, DataValues
End With
НО ! эта ###### отражает только 11 значений, а не все ! график неверный !
а если эти данные перенести на Spreadsheet , то график будет точный!
Вопрос : можно ли обойтись без переноса данных и заставить OWC Chart отрисовывать массив всех значений и как это сделать ?
если нельзя, то как перенести массив в spreadsheet и указать точный размер диапазона данных в нем ?
С уважением,
Danilka