Изменение цвета баров в гистограмме - PullRequest
Новая
       36

Изменение цвета баров в гистограмме

1 голос
/ 14 декабря 2011

У меня есть код в Excel для изменения цвета гистограммы, но он не работает. Может кто-нибудь подсказать мне, что я делаю не так в коде. 

With ActiveChart.SeriesCollection(1).Interior.Color = RGB(0, 153, 64)
End With

Этот код не влияет на цвет полосы.

Кроме того, для всех столбцов (представляющих значения от 0 до 200) я хочу один цвет (зеленый), но для двух столбцов, представляющих две точки данных (100 и 200), я хочу добавить другой цвет. Может кто-нибудь, пожалуйста, скажите мне, как это с VBA. Буду признателен за ваше время относительно того же.

Большое спасибо

1 Ответ

2 голосов
/ 14 декабря 2011

Оператор With указывает объекты или свойства, с которыми нужно работать. Ваш код должен быть таким: 

With ActiveChart.SeriesCollection(1)
    .Interior.Color = RGB(0, 153, 64)
End With

РЕДАКТИРОВАТЬ - Для 2-й части вашего вопроса: 

Sub ColorBars()
Dim chtSeries As Excel.Series
Dim i As Long

For Each chtSeries In ActiveChart.SeriesCollection
    With chtSeries
        For i = 1 To .Points.Count
            If .Values(i) = 100 Or .Values(i) = 200 Then
                .Points(i).Interior.Color = .Interior.Color = RGB(75, 172, 198)
            Else
                .Points(i).Interior.Color = RGB(0, 153, 64)
            End If
        Next i
    End With
Next chtSeries
End Sub
...