Farben im Pie Chart per VBA ändern
12.02.2014 18:26:11
Matthias
ich habe im Netz einen prima VBA Code (siehe Beispiel) gefunden, der mir hilft die Farben von _
eingefärbten Zellen direkt an einen Pie Chart weiterzugeben. Funktioniert prima! Allerdings _ wenn ich eine Zelle mit keiner Füllung "markiere", dann erkennt der Pie Chart das als Weiß an. Wie bekomme ich es hin, dass das Tortenstück dann quasi auch farblos (ohne Füllung) wird?
Sub ColorPies()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series
For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection
If myseries.ChartType xlPie Then GoTo SkipNotPie
s = Split(myseries.Formula, ",")(2)
vntValues = myseries.Values
For i = 1 To UBound(vntValues)
myseries.Points(i).Interior.Color = Range(s).Cells(i).Interior.Color
Next i
SkipNotPie:
Next myseries
Next cht
End Sub
Vielen Dank für Eure Hilfe!
Gruß Matthias
Hier das Beispiel
https://www.herber.de/bbs/user/89251.xlsm