Makro zum Ändern der Diagrammfarbe
27.05.2022 09:10:29
Rob98
ich habe folgendes Problem. Ich möchte mit meiner erstellen Excel Makro für ein Kreisdiagramm die Farben anpassen. Die Daten für die RGB Farben stehen in Excel Zellen. Aktuell habe ich eine Makro geschrieben die hervorragend für meine Balkendiagramme funktioniert, jedoch nicht für Kreisdiagramme mit einem Datensatz. Die Funktion SeriesCollection zählt leider nicht die richtigen Daten im Diagramm. Gibt es hier andere Funktionen bzw. eine bessere Möglichkeit die Farben dynamisch anzupassen?
Hier die Datei:
https://www.herber.de/bbs/user/153286.xlsm
Hier noch der Makrocode:
Sub test()
Dim chtDiagramm As Chart
Dim i As Integer, j As Integer, intColor As Integer, intSeries As Integer
Dim strName As String
'Farben Diagramm setzen
Set chtDiagramm = Worksheets("Test").ChartObjects("Testdiagramm").Chart
intSeries = chtDiagramm.SeriesCollection.Count
For i = 1 To intSeries
strName = chtDiagramm.SeriesCollection(i).Name
For j = 5 To Worksheets("Test").Range("H2").Value + 4
If Worksheets("Test").Cells(j, 8).Value = strName Then
With chtDiagramm.SeriesCollection(strName)
.Format.Fill.Visible = msoTrue
.Format.Fill.ForeColor.RGB = RGB(Worksheets("Test").Cells(j, 6).Value, Worksheets("Test").Cells(j, 7).Value, Worksheets("Test").Cells(j, 8).Value)
End With
End If
Next j
Next i
End Sub
Rob98