Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
построение линии графика разными цветами
 
#1
28.09.2012 23:33:20
Уважаемые знатоки, если кому не трудно, подскажите, пожалуйста как построить график, что бы цвет его линии зависел от типа данных.бывает два варианта данных, нужно, что бы в зависимости от варианта тип линии графика менялся.
 
 
 
#2
29.09.2012 01:29:35
В данном конкретном случае добавьте событие на лист1  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, [C5:AA5]) Is Nothing Then
       ActiveSheet.ChartObjects("Äèàãðàììà 1").Activate  
       For Each icell In [C5:AA5]
           ActiveChart.SeriesCollection(1).Points(icell.Column - 2).Select  
           If icell.Value = 1 Then  
               Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)  
           Else  
               Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 255)  
           End If  
       Next  
   End If  
End Sub  
 
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#3
29.09.2012 01:30:10
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, [C5:AA5]) Is Nothing Then
       ActiveSheet.ChartObjects("Диаграмма 1").Activate  
       For Each icell In [C5:AA5]
           ActiveChart.SeriesCollection(1).Points(icell.Column - 2).Select  
           If icell.Value = 1 Then  
               Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)  
           Else  
               Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 255)  
           End If  
       Next  
   End If  
End Sub  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#4
29.09.2012 12:04:16
ber$erk, спасибо большое, работает прекрасно.
 
 
 
#5
29.09.2012 12:11:58
а если нужно заменить синюю линию на синюю пунктирную, что нужно дописать?
 
 
 
#6
29.09.2012 13:11:32
а макрорекодер что говорит по этому поводу?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#7
29.09.2012 14:04:53
Действительно. Я ведь этот код тоже на основании макрорекордера писал. Сейчас нет возможности дописать код - попробуйте сами.  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#8
29.09.2012 14:31:27
если бы знать , как его использовать в этом конкретном случае. Как записать изменение типа линии в зависимости от данных таблицы, в график попадает только 2 строки, а нижняя нет.
 
 
 
#9
29.09.2012 15:27:39
А разве нет конкретного правила, по которому определяется 0 ставить или 1? По любому есть - надо его заложить в формулу и все.  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#10
29.09.2012 17:20:27
а макрорекодер что говорит по этому поводу?  
ikki, а в 2007 он молчит как партизан:( KL как то писал:  
http://www.planetaexcel.ru/forum.php?thread_id=23009  
У пользователя Excel 2007. За неимением лучшей альтернативы в Excel 2007 (объекта Diagram УЖЕ(!) нет, а объект SmartArt ЕЩЕ(!) непрограммируем до Excel 2010)
 
 
 
#11
29.09.2012 17:37:58
я просто спросил, безо всякого ехидства :)  
ибо настолько редко имею дело с диаграммами, что на память ничего и не помню.  
оказывается, за стиль линии отвечает свойство LineStyle свойства Border объекта Series  
(не, ну я реально в шоке! ну кто сможет догадаться???)  
 
в ObjectBrowser имеется перечислимый тип xlLineStyle  
даже совсем не зная английский, можно методом тыка перебрать все восемь значений и посмотреть на результат.  
всяко быстрее выйдет, чем несколько часов ждать ответ на форуме :)  
 
имхо, конечно же.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#12
29.09.2012 17:45:44
0 или 1 нельзя заложить в формулу, вариант выбирается в ручную. Жаль что ничего не поняла из диалога ikki и Igor67, но вообщето тема для меня интересная, попытаюсь разобраться, возникло еще несколько вопросов - несколько линий на 1 графике и несколько графиков на 1 листе. Понимаю, что все можно построить с помощью макрекордера, но не знаю как это записать. Включить команду запись, построить таблицу и график и в ручную менять значения вариантов?
 
 
 
#13
29.09.2012 19:43:37
 http://andypope.info/ngs/ng50.htm
 
 
 
Страницы: 1
Читают тему
Наверх