Alexikit
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KF121
Спасибо за советы, действительно если данные присутствуют активация не нужна, заголовок добавляется.
Но теперь не удается построить одновременно два графика, программа затирает данные первого и записывает втрой туда же, хотя вроде объекты разные, код сейчас выглятит так
Код:
Set wgr1 = Application.ActiveWorkbook.ActiveSheet
wgr1.ChartObjects.Add 100, 30, 400, 250
Set gr1 = wgr1.ChartObjects(1).Chart
gr1.ChartType = xlXYScatterSmooth
For i = 1 To jj
gr1.SeriesCollection.NewSeries
gr1.SeriesCollection(yjgr1(i) - 1).XValues = ActiveSheet.Range(ActiveSheet.Cells(xj1(i), 1), ActiveSheet.Cells(xj2(i), 1))
gr1.SeriesCollection(yjgr1(i) - 1).Values = ActiveSheet.Range(ActiveSheet.Cells(xj1(i), 3), ActiveSheet.Cells(xj2(i), 3))
gr1.SeriesCollection(yjgr1(i) - 1).Name = "=""Chart11 """
Next
With gr1
.HasTitle = True
.ChartTitle.Text = "толщина"
End With
Set wgr2 = Application.ActiveWorkbook.ActiveSheet
wgr2.ChartObjects.Add 100, 30, 400, 250
Set gr2 = wgr2.ChartObjects(1).Chart
gr2.ChartType = xlXYScatterSmooth
For i = 1 To jj
gr2.SeriesCollection.NewSeries
gr2.SeriesCollection(yjgr1(i) - 1).XValues = ActiveSheet.Range(ActiveSheet.Cells(xj1(i), 1), ActiveSheet.Cells(xj2(i), 1))
gr2.SeriesCollection(yjgr1(i) - 1).Values = ActiveSheet.Range(ActiveSheet.Cells(xj1(i), 4), ActiveSheet.Cells(xj2(i), 4))
gr2.SeriesCollection(yjgr1(i) - 1).Name = "=""Chart11 """
Next
With gr2
.HasTitle = True
.ChartTitle.Text = "толщина%"
End With
|
|
