Изменение цветов по умолчанию в Excel 2010 Диаграмма

Question

У меня есть рабочая книга, чем создается диаграмма «на лету» в зависимости от выбранного листа, который является источником данных. Две серии - линии, две из которых - гистограммы со значениями выше и ниже одной из линейных рядов.

Я хотел бы, чтобы цвета положительных значений гистограммы были зелеными, а отрицательные значения - красными. Независимо от того, сколько вариантов я попытался, когда диаграммы сгенерированы, они по умолчанию соответствуют стандартным цветам (сгоревшие оранжевые и синие синие.)

После создания диаграммы, если я отредактирую свойства серии напрямую, у меня нет проблем изменение цветов заливки на красный и зеленый.

Мой код:

ActiveSheet.Shapes.AddChart.Select 
Application.ActiveChart.Parent.Name = "Chart1" 
ActiveSheet.ChartObjects("Chart1").Activate 
ActiveChart.PlotVisibleOnly = False 

ActiveChart.Axes(xlValue).Select 
ActiveChart.Axes(xlValue).MinimumScale = ValueMin - 0.1 
ActiveChart.Axes(xlValue).MaximumScale = ValueMax + 0.1  

ActiveChart.SeriesCollection(1).Select     'Negative Series 
ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered 
With Selection.Format.Fill 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(255, 0, 0)      'Red 
    .Transparency = 0 
    .Solid 
End With 

ActiveChart.SeriesCollection(2).Select     'Positive Series 
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered 
With Selection.Format.Fill 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(0, 176, 80)      'Green 
    .Transparency = 0 
    .Solid 
End With 

ActiveChart.SeriesCollection("3").Select 
With Selection.Format.Line 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(255, 255, 0)        'Yellow 
    .Transparency = 0 
End With 
ActiveChart.SeriesCollection(4).Select        'Signal 
With Selection.Format.Line 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(255, 51, 204)        'Pink 
    .Transparency = 0 
End With 

Любые идеи, как бить цвета по умолчанию и использовать те выбранные? Спасибо.

Answer 1

Я немного ленив, чтобы написать этот код. Поэтому вам предоставляется псевдокод (непроверенный). Вы можете протестировать и использовать его по своему усмотрению ... Запустите этот код сразу после генерации ваших диаграмм. Пользователь не заметит изменений на бэкэнд - если вы отключите обновление экрана в начале и включите его в конце. Я не вижу код генерации диаграммы. Поэтому я написал один, чтобы сделать после поколения на основе вашего вопроса.

Option Explicit 

Public Sub ColureMePlusMinus() 
Dim ws as Worksheet 
Dim cht as ChartObject 
Dim srs as Series 
Dim i as Integer 
Dim pcRed as Integer 'if you intend to use RGB, use Long 
Dim ncGreen as Integer 

'--change as per your own sheet 
Set ws = ActiveWorkbook.Sheets("Sheet1") 

pcRed = 4 
ncGreen = 3 

For Each cht In ws.ChartObjects 
    For Each srs In cht.Chart.SeriesCollection 
     With srs.Fill 
     .Solid 
     '--do the honours 
     End With 
    Next 
Next 

End Sub 

цвет кредиты peltier.

---

UPDATE

Обновление в соответствии с комментарием OP в:

Changing Excel workbook's colour theme and How to change the default colors that Excel uses for chart series.

Answer 2

Иногда самые трудные решения, чтобы выяснить, является самым обычным.

линии

ActiveChart.SeriesCollection(2).Select    
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered 
With Selection.Format.Fill 
...etc 

Должен быть переключена на:

ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered 
ActiveChart.SeriesCollection(2).Select    
With Selection.Format.Fill 
...etc 

Так что Format.Fill действует на имущество SeriesCollection, а не собственность ChartType. Doh!

Работает как очарование.