День добрый. Уже который день мучаюсь с одной задачкой - можно ли раскрашивать различные столбцы диаграммы в зависимости от данных в них (т.е. если значение в ячейке от 100 до 200, то столбик красный, если от 200 до 300 - синий и т.д.) или же в зависимости от некоего условия (если значение в ячейке =1, то столбик красный, =2 - синий. но ячейка не задает размер самого столбца). Очень интересует возможность как полной закраски всех столбцоы диаграммы, так и закраска одного или двух столбцов. Ползая по интернету нашел вот такой рабочий макрос для автофигур:  
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)  
   If Not Intersect(Target, [B2]) Is Nothing Then
      If IsNumeric([B2]) = True Then
         Select Case [B2]
             Case 1 To 100:    iColor& = vbRed  
             Case 100 To 200:  iColor& = vbBlue  
             Case 200 To 300:  iColor& = vbCyan  
             Case 300 To 400:  iColor& = vbGreen  
             Case 400 To 500:  iColor& = vbYellow  
             Case 500 To 1000: iColor& = vbMagenta  
             Case Else:        iColor& = vbWhite  
         End Select  
         Me.Shapes(1).Fill.ForeColor.RGB = iColor&  
      End If  
   End If  
End Sub  
 
 
но на графики его не получается переделать...  
Спасибо )