MyTetra Share
Делитесь знаниями!
Как добавить линию уровня на график с помощью VBA?
Время создания: 16.03.2019 23:43
Текстовые метки: VBA Excel, Графики
Раздел: !Закладки - VBA - Excel - Shapes

Как добавить линию уровня на график с помощью 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

Next

Set objSeries = ActiveChart.SeriesCollection.NewSeries

objSeries.Values = arrValues

objSeries.ChartType = xlLine



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


Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования