Как добавить линию уровня на график с помощью VBA?

MyTetra Share

Делитесь знаниями!

Ссылка на оригинал

Время создания: 16.03.2019 23:43

Текстовые метки: vba_excel, графики

Раздел: Разные закладки - VBA - Excel - Shapes

Запись: xintrea/mytetra_db_adgaver_new/master/base/1523002220fl7t2jk3zz/text.html на raw.githubusercontent.com

Как добавить линию уровня на график с помощью VBA?

Задача: необходимость добавить к графику горизонтальную линию на уровне определенного значения одной из осей. Для решения этой задачи можно либо составить ряд одинаковых чисел и добавить соответствующий график на диаграмму, либо воспользоваться VBA:

Const Num = 0.8 'Значение уровня

Dim objSeries As Series

Dim arrValues()

ActiveWorkbook.Sheets("Имя_листа").ChartObjects("Имя_диаграммы").Activate

arrValues = ActiveChart.SeriesCollection(1).Values

For i = LBound(arrValues) To UBound(arrValues)

arrValues(i) = Num

Set objSeries = ActiveChart.SeriesCollection.NewSeries

objSeries.Values = arrValues

objSeries.ChartType = xlLine

Источник: Форум программистов

Так же в этом разделе:

MyTetra Share v.0.65