| Вопрос: Отображение графиков | Добавлено: 31.07.09 14:34 |
Автор вопроса:  fuzzy_l
|
|
При отображении графиков ось Х нумеруется порядковыми номерами значения, а не значениями времени.
В чём косяк? Подскажите. Кусок макроса на рисование графиков: Columns("A:A").Select Selection.NumberFormat = "@" Columns("B:B").Select Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss" Columns("C:C").Select Selection.NumberFormat = "0.0000" Columns("D:D").Select Selection.NumberFormat = "0" Columns("E:E").Select Selection.NumberFormat = "0" Columns("F:F").Select Selection.NumberFormat = "0" ' Sheets(f2Name).Select ' Sheets.Add Dim grNeim0(6) As String, grNeim1(6) As String, grNeim2(6) As String For graf = 1 To 6 grNeim0(graf) = "=" & f2Name & "!$A$" & Trim(Str(nach(graf))) grNeim1(graf) = "=" & f2Name & "!$B$" & Trim(Str(nach(graf))) & Chr(58) & "$D$" & Trim(Str(kon(graf))) grNeim2(graf) = "=" & f2Name & "!$C$" & Trim(Str(nach(graf))) & Chr(58) & "$C$" & Trim(Str(kon(graf))) Next graf Range("H1").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterLinesNoMarkers ' ActiveChart.SeriesCollection.NewSeries ' ActiveChart.SetSourceData Source:=Range("B" & nach%(1) & ":B" & kon%(1)) For graf = 1 To 6 ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(graf).Name = grNeim0(graf) ActiveChart.SeriesCollection(graf).Values = grNeim2(graf) ActiveChart.SeriesCollection(graf).XValues = grNeim1(graf) Next graf ActiveSheet.ChartObjects("Диаграмма 1").Activate ActiveChart.ChartType = xlXYScatterLinesNoMarkers |
| Ответы | Всего ответов: 0 |
Страница: