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

928
Fidell

Ich möchte eine vierte Variable veranschaulichen (x-Achse, y-Achse, Blasengröße, Blasenfarbe), möchte jedoch die Reihe nicht künstlich in vordefinierte Gruppen unterteilen, die auf einem Schwellenwertsatz basieren. Vielmehr möchte ich, dass jede Blase die bestimmten Farben einer Zelle widerspiegelt (die durch eine bedingte Formatierung basierend auf der vierten Variablen gefärbt wird).

Weiß jemand, wie das geht?

-1

1 Antwort auf die Frage

0
Rajesh S

Wie es funktioniert:

  1. Daten eingeben und Farben füllen.
  2. Klicken Sie auf Einfügen, Einfügen (X, Y) oder ein Blasendiagramm und wählen Sie ein Blasendiagramm aus.
  3. Klicken Sie mit der rechten Maustaste auf das Diagramm, und klicken Sie im Menü auf Daten auswählen.
  4. Klicken Sie in der Datenquelle auswählen auf Hinzufügen und wählen Sie relative Zellen für Datenreihen aus .
  5. Für das erste Textfeld wählen Sie Zelle A1und unter Zellen für andere Textfelder aus A2, A3, A4.
  6. Wiederholen Sie Schritt 5 für Spalte Bund Cund beenden Sie mit Ok.
  7. Kopieren Sie diesen VB-Code als Standardmodul mit der Tabelle.

    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. Wählen Sie schließlich den Diagrammbereich aus und führen Sie den Code aus.

Sie erhalten die Farben der Blase ähnlich wie die Farben der gefüllten Zelle.

Beachten Sie, dass diese Methode niemals die bedingten formatierten Zellenfarben erhält.