Автоматическое создание графика (диаграммы) на VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое создание графика (диаграммы) на VBA (Макросы/Sub)

KeenGaff

Дата: Понедельник, 23.11.2015, 16:18 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго дня.
Средствами VBA строю график.
Вот код:
[vba]

Код

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.ChartStyle = 26
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartTitle.Text = "График зависимости Х от параметров А и В"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Параметр А"""
ActiveChart.SeriesCollection(1).Values = "=Лист1!$A$2:$A$" & cCount
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Параметр В"""
ActiveChart.SeriesCollection(2).Values = "=Лист1!$B$2:$B$" & cCount
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""Значение Х"""
ActiveChart.SeriesCollection(3).Values = "=Лист1!$C$2:$C$" & cCount

[/vba]

Если данных много, т.е. больше 4 строк, то все нормально.
Вот данные.