Series in grafiek zelfde kleur geven

[Christian Evers]

Hallo!

Is er een handige manier om alle series in één grafiek dezelfde kleur te geven? Dus handiger dan serie selecteren en dan via opmaak de kleur veranderen? Want de series staan in de grafiek zo dicht bij elkaar dat ze moeilijk afzonderlijk te selecteren zijn.

Christian

 

[Ingrid B]

Met deze macro worden alle reeksen van de actieve grafiek groen gekleurd

Sub test()
Dim i%
  For i = 1 To ActiveChart.SeriesCollection.Count
    ActiveChart.SeriesCollection(i).Select
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
  Next i
End Sub

 

[Christian Evers]

Mooi!

Waar kan ik de codering van de kleuren vinden?
Bedankt voor de snelle reactie!

 

[Ingrid B]

Twee mogelijkheden:

1) met macro opnemen
Als je gewoon een macro opneemt om bijv. een cel van kleur te veranderen, dan krijg je onmiddellijk het juiste kleurnummer te zien.

2) op de site van David McRitchie staat de volledige kleurentabel zoals deze in Excel wordt gebruikt.

 

[Christian Evers]

Ik had de tabel ook al gevonden in de help-functie, maar dank je.

Alleen de macro werkt niet! De debugger zegt 'unable to set the Colorindex of the Interior class'

Ik heb eerst de grafiek geselecteerd en toen de macro gedraaid. Hij stopt bij de eerste geselecteerde serie.

 

[Ingrid B]

Met vorige macro werd enkel het vlak gekleurd, wat dus niet werkt voor bijv. een lijngrafiek. Met deze macro wordt zowel de lijn (of rand) en het vlak in dezelfde kleur weergegeven. De regel On Error Resume Next zorgt er voor dat je bij een grafiektype zonder vlak geen foutmelding krijgt, maar dat de macro gewoon met de volgende regel verder gaat.

Sub test()
Dim i%
  On Error Resume Next
  For i = 1 To ActiveChart.SeriesCollection.Count
    ActiveChart.SeriesCollection(i).Select
' lijn kleuren
    With Selection.Border
        .ColorIndex = 4
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
' vlak kleuren
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
  Next i
End Sub

 

[Christian Evers]

Ja, zo werkt die perfect! Ik heb inderdaad lijngrafieken.

Bedankt! :thumb: