Bubblechart mit VBA generieren/ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
und noch eine kleine Ergänzung zu Karin's Vorschlag, falls Du noch die Bubble-Farben setzen möchtest.
Abweichende Umrandungsfarben für alternatives Aussehen wären auch möglich.
Einfach in Spalte $E die Farben in RGB eintragen =&GT; 255,0,0 für rot usw.

Sub DiaErstellen()

    Dim lngZeile As Long, sF() As String

    With ActiveSheet.Shapes.AddChart2(269, xlBubble).Chart

        For lngZeile = 4 To 7 '&LT;== die Zeilenanzahl kannst du noch variabel gestalten

            With .SeriesCollection.NewSeries

                .XValues = Worksheets("Tabelle1").Cells(lngZeile, 2)

                .Values = Worksheets("Tabelle1").Cells(lngZeile, 3)

                .BubbleSizes = Worksheets("Tabelle1").Cells(lngZeile, 4)

                .Name = Worksheets("Tabelle1").Cells(lngZeile, 1)

                sF = Split(Worksheets("Tabelle1").Cells(lngZeile, 5), ",")

                If UBound(sF) &GT; 1 Then _

                .Interior.Color = RGB(Val(sF(0)), Val(sF(1)), Val(sF(2)))

            End With

        Next lngZeile

    End With

End Sub

viele Grüße
Karl-Heinz

Hallo Wolfgang,
ich habe leider nicht ganz verstanden, was Du meinst. In der Bubble-Grafik könnten mehrere Reihen mit je mehreren Datenpunkten sein (Habe ich z.B. hier bei mir aus alten Arbeitszeiten) oder halt auch, wie bei Dir hier, eine Grafik mit mehreren Reihen mit je einem Datenpunkt.
Hier mal ein Beispiel, wie Du alle Datenpunkte in allen Reihen ansprechen kannst. In diesem Beispiel werden alle auf die gleiche Farbe gesetzt. Im Beispiel wird die Farbe einheitlich aus der Zelle F1 genommen und alle Bubbles damit eingefärbt.
Aber bringt Dich das jetzt bei den paar Bubbles ggü. Karins Lösung mit den formatierten Zellen irgendwie weiter?

Sub Test()

 Dim xRows As Integer, xPoints As Integer, lFarbe As Long

' lFarbe = RGB(255, 255, 0)  'gelb

 lFarbe = Range("$F$1").Interior.Color

 For xRows = 1 To ActiveChart.SeriesCollection.Count

  With ActiveChart.SeriesCollection(xRows)

   For xPoints = 1 To .Points.Count 'Alle Datenpunkte der aktuellen Datenreihe durchgehen

     With .Points(xPoints)

       .Interior.Color = lFarbe     'Flächenfarbe

       .Border.Color = lFarbe       'Umrandungsfarbe

       .Border.Weight = 2           'Umrandung Strichstärke

     End With

   Next xPoints

  End With

 Next xRows

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Bubblechart mit VBA generieren/ändern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread