opmaak alle grafieken

[steviewonder]

opmaak alle grafieken in 1 x aanpassen

ik heb in een excel werkblad een stuk of 20 grafieken en nu wil ik eigenlijk de kleuren van de staven uit elke grafiek veranderen. is dit mogelijk om dat in 1 keer voor allemaal te doen of moet ik ze per grafiek zelf aanpassen?
bijvoorbaat dank

 

[Wigi]

Gebruik deze code:

Sub Macro1()
Dim myChart As ChartObject
Dim mySrs As Series
For Each myChart In ActiveSheet.ChartObjects
    For Each mySrs In myChart.Chart.SeriesCollection
        mySrs.Interior.Pattern = xlSolid
        mySrs.Interior.ColorIndex = 5
    Next
Next
End Sub

Verander de kleurcode in wat je wilt. 5 is donker blauw.

Heb je nu het licht gezien, Stevie Wonder?

Wigi