Всем доброй ночи! Решил обратиться с вопросом, вдруг кто знает... Суть проблемы в том, что требуется добавить на график горизонтальную линию без маркеров, и чтобы она была на всей области построения графика. Максимально близкое решение, которое удалось найти приведено ниже.
[vba]
Код
Sub Добавить_линию()
Const Num = 30 Dim objSeries As Series Dim arrValues()
For i = LBound(arrValues) To UBound(arrValues) arrValues(i) = Num Next Set objSeries = ActiveChart.SeriesCollection.NewSeries objSeries.Values = arrValues objSeries.ChartType = xlLine objSeries.Format.Line.ForeColor.RGB = RGB(255, 0, 0) objSeries.Format.Line.Weight = 2.75 objSeries.Name = "Название линии в легенде"
End Sub
[/vba]
[color=green]------------------------------------------------ В данном примере на существующий текущий график добавляется красная горизонтальная линия, но есть одно но... Линия добавляется только в пределах существующих значений, представленных в графике, а нужно, чтобы линия пересекала всю область построения. Есть ли возможность это реализовать?
Всем доброй ночи! Решил обратиться с вопросом, вдруг кто знает... Суть проблемы в том, что требуется добавить на график горизонтальную линию без маркеров, и чтобы она была на всей области построения графика. Максимально близкое решение, которое удалось найти приведено ниже.
[vba]
Код
Sub Добавить_линию()
Const Num = 30 Dim objSeries As Series Dim arrValues()
For i = LBound(arrValues) To UBound(arrValues) arrValues(i) = Num Next Set objSeries = ActiveChart.SeriesCollection.NewSeries objSeries.Values = arrValues objSeries.ChartType = xlLine objSeries.Format.Line.ForeColor.RGB = RGB(255, 0, 0) objSeries.Format.Line.Weight = 2.75 objSeries.Name = "Название линии в легенде"
End Sub
[/vba]
[color=green]------------------------------------------------ В данном примере на существующий текущий график добавляется красная горизонтальная линия, но есть одно но... Линия добавляется только в пределах существующих значений, представленных в графике, а нужно, чтобы линия пересекала всю область построения. Есть ли возможность это реализовать?Alex2005-10
Alex2005-10, А для начала исправьте свой первый пост. код надо прятать не под спойлер, а оформлять тэгами . пояснялка здесь. Исправляйте [p.s.]не заметил, что прошли сутки. исправил сам
Alex2005-10, А для начала исправьте свой первый пост. код надо прятать не под спойлер, а оформлять тэгами . пояснялка здесь. Исправляйте [p.s.]не заметил, что прошли сутки. исправил самкитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
