>> Bubble Chart - einstellungen

[stoxxii]

Hey Guys,
Hey Admins,

also neuer Versuch : das simpelste Weg um mehrere Gruppen getrennt darzustellen ist wohl der Bubble - Chart (Blasen-Diagramm).
Im Anhang ist Excel + Screenshot.

Aber sagt bitte :  1.)  wie kann man die Colors ändern der einzelnen Bubbles ?  

2.) und wie könnte man den Text bei dunklen Bubbles mit "reverse coloring" machen 
also mit weiß oder gelb", und die anderen Datenbeschriftungen bleiben mit schwarz. ? --> nur manuell vermutlich ??  

Danke vorab.

beste grüße
stoxxii

[Fennek]

Hallo,

in meinem Archiv habe ich diesen Code gefunden:

Code:

Sub Farbe_definieren()
Dim Ch As ChartObject

Set Ch = ActiveSheet.ChartObjects("Diagramm 1")
N = Ch.Chart.FullSeriesCollection.Count
Stufe = 255 / N
For i = 1 To N
   With Ch.Chart.FullSeriesCollection(i).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(i * Stufe, 255 - i * Stufe, i * Stufe)
        .Transparency = 0
        .Solid
    End With
Next i

End Sub

Für deine Fragestellung werden die Farben anderst gesetzt werden müssen.

mfg

[stoxxii]

Hallo Fennek,

oh sorry,  ich nix verstehen  "VBA"  

Andere Frage: könnte ich noch zusätzlich eine Beschriftung zu jeder Bubble hinzufügen ...??
((wahrscheinlich nicht ... ))

Ich müsste dann die ganze Grafik in PAINT  kopieren und dort Standort- Kürzel eintragen....

beste Grüße
stoxxii

[Fennek]

Hallo,

ob es ohne VBA geht, möchte ichbezweifeln, mit VBA erfordert viele Tests.

Im Prinzip sollte sowohl die Farbe als auch die Beschriftung einzeln zu kontrollieren sein.



mfg

PS:

Mit viele Probieren kann Farbe und Label so gesetzt werden:

Code:

Dim BB As ChartObject

Set BB = ActiveSheet.ChartObjects("Diagramm 1")

BB.Chart.FullSeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(0, 255, 0)

BB.Chart.FullSeriesCollection(1).Points(4).DataLabel.Select
ActiveChart.SeriesCollection(1).DataLabels(4).Format.TextFrame2.TextRange. _
       Characters.Text = "neu"

[stoxxii]

many Thanks  

Fennek  für soviel nette VBA Programmierungen...
Aber ich bemerkt, wenn man 10x auf die Blasen und Texte klickt, dann kann man diese manuell einstellen

Beste Grüße
stoxxii