| Код |
|---|
Public Sub CreateChartList()
Dim ch As Chart
Set ch = ActiveWorkbook.Charts.Add
ch.SetSourceData Source:=Worksheets("Лист1").Range("B3:F6), PlotBy:=xlRows
ch.ChartType = xlArea
End Sub
|
| Код |
|---|
ch.SetSourceData Source:=Worksheets("Лист1").Range("B3:F6), PlotBy:=xlRows
|
