Wie kann ich in MS Excel ein Blasendiagramm erstellen, bei dem die Farbe der Blasen mit der Farbe einer Zelle übereinstimmt?

Question

Ich möchte eine vierte Variable (x-Achse, y-Achse, Blasengröße, Blasenfarbe) darstellen, möchte die Reihe aber nicht künstlich in vordefinierte Gruppen aufteilen, die auf einer Reihe von Schwellenwerten basieren. Vielmehr möchte ich, dass jede Blase die bestimmten Farben einer Zelle widerspiegelt (die durch bedingte Formatierung basierend auf der vierten Variable eingefärbt werden).

Weiß jemand, wie das geht?

Answer 1

Wie es funktioniert:

1. Geben Sie Daten ein und füllen Sie Farben.
2. klickenEinfügen,Streuung einfügen (X, Y)oder Blasendiagrammund wählen Sie Blasendiagramm aus.
3. Klicken Sie mit der rechten Maustaste auf das Diagramm und klicken Sie aufDaten auswählenaus dem Menü.
4. Von demDatenquelle auswählenKlickenHinzufügen & relative Zellen auswählen fürDatenreihen.
5. Wählen Sie für das erste Textfeld die Zelle A1und darunter Zellen für andere Textfelder aus, wie z A2, A3, A4. B.
6. Wiederholen Sie Schritt 5 für Spalte B& Cund beenden Sie mitOK.

7. Kopieren Sie diesen VB-Code und fügen Sie ihn als Standardmodul in das Blatt ein.

   Option Explicit
   
   Sub ColorChartSeries()
   Dim iRow As Long, iCol As Long
   Dim theBubbles As Range
   Dim theChart As Chart
   Dim theSeries As Series
   Dim thePoint As Point
   
   Set theChart = ActiveChart
   
   If (theChart.ChartType <> xlBubble And theChart.ChartType <> xlBubble3DEffect) Then
       MsgBox "This works only for bubble charts!"
       End
   End If
   
   For Each theSeries In theChart.SeriesCollection
       Set theBubbles = Range(theSeries.BubbleSizes)
       iRow = theBubbles.Row - 1
       iCol = theBubbles.Column
       For Each thePoint In theSeries.Points
           iRow = iRow + 1
           thePoint.Format.Fill.ForeColor.RGB = Cells(iRow, iCol).Interior.Color
       Next thePoint
   Next theSeries
   
   End Sub
   

8. Endlich,Wählen Sie den Diagrammbereich aus und führen Sie den Code aus.

Sie erhalten ähnliche Blasenfarben wie die Farben der ausgefüllten Zellen.

Notiz, Mit dieser Methode werden niemals die bedingt formatierten Zellenfarben abgerufen.