kleuren achtergrond kwadranten spreidingsdiagram

[MichaelBogaard]

Hallo allemaal,

even een korte vraag: is het mogelijk om de vier kwadranten van een spreidingsdiagram elk een eigen kleur te geven?
Zo ja, hoe doe je dat?

Alvast bedankt voor de reacties!

Gr. Michael

 

[snb]

Met een van de RGB-kleuren.

 

[MichaelBogaard]

Bedoel je via VBA?

Heb je daar de code voor?

Uiteraard lukt 1 achtergrondkleur wel voor alle kwadranten, maar ik krijg het (nog) niet voor elkaar om elk kwadrant een eigen kleur te geven.

 

[Haije]

Michael,

@snb geeft op jouw korte vraag een kort antwoord

Als je een excelbestand post met een/het spreidingsdiagram er in kun je een uitgebreider antwoord tegemoet zien....

 

[snb]

Sommigen hebben aan een 1/2 woord genoeg :thumb:

 

[E v R]

- Leesvoer - /

 

[MichaelBogaard]

Ik heb een klein bestandje toegevoegd met daarin een spreidingsdiagram waarin ik 4 kwadranten heb gemaakt.
Het lukt mij (nog) niet om elk kwadrant een eigen kleur te geven.

@Erik: dat leesvoer had ik al gezien, maar kwam er niet aan uit.

Kan iemand mij wellicht helpen nu een voorbeeldbestand is bijgevoegd?

Alvast bedankt!

Gr. MichaelBekijk bijlage voorbeeldje spreidingsdiagram met 4 kwadranten.xlsx

 

[OctaFish]

Hier een voorbeeldje dat ik heb gemaakt a.d.h.v. de link van evr.

 

[OctaFish]

En hier in je eigen bestand. Wel heb ik een nieuwe grafiek moeten maken, zoals je ziet.

 

[snb]

In VBA in het laatste bestand van Octafish ( :thumb: )

Sub M_snb()
  with ActiveSheet.ChartObjects("Grafiek 1").Chart
    .SeriesCollection(5).Format.Fill.ForeColor.RGB = RGB(214, 208, 8)
    .SeriesCollection(6).Format.Fill.ForeColor.RGB = RGB(205, 208, 230)
    .SeriesCollection(3).Format.Fill.ForeColor.RGB = RGB(2, 208, 180)
    .SeriesCollection(4).Format.Fill.ForeColor.RGB = RGB(80, 80, 80)
  end with
End Sub

 

[OctaFish]

Waarom niet elke dag een ander kleurtje?

    With ActiveSheet.ChartObjects("Grafiek 1").Chart
    For i = 3 To 6
        .SeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(Int(Rnd() * 255) + 1, Int(Rnd() * 255) + 1, Int(Rnd() * 255) + 1)
    Next i
  End With

 

[MichaelBogaard]

Dank je wel voor jullie reacties met daarin de oplossingen!
Ik zal de vraag als opgelost markeren.

Gr. Michael