SeriesCollecition Farbe auslesen
E.
ich habe folgendes Problemchen mit einem Modul das für Excel 2002/03 geschrieben wurde und nun in 2010 nicht mehr richtig funktioniert:
Hier die Beschreibung dazu:
Es handelt sich um den richtigen farbigen Hintergrund (Interior) von Datenlabels in einem Chart.
Bisher hat dies unter 2002/03 super funktioniert, aber mit den neuen Designfarben und auch den selbstdefinierten Farben ist die Hintergrund der Labels eine andere als die der Datenreihe (Seriescolleciton). Was ich nun bräuchte wäre eine Möglichkeit die Farbe der SeriesCollection auszulesen und auf "Datalabel.Interior" zu übertragen?
Gibt es hierfür eine Möglichkeit? Freue mich schon sehr auf eure Antwort(en)!
Ich kopiere die Sub auch mal mit rein die für Excel 2002/03 geschrieben wurde:
Public Sub SetChartOptions(ByRef obj As ChartObject)
Dim sc As SeriesCollection
Dim sr As Series
Dim pt As Integer
Dim ci As Long
Dim id As Long
Dim v() As Variant
Call InitOptionsIfNecessary
Call InitColors
Set sc = obj.Chart.SeriesCollection
On Error Resume Next
'Das funktioniert nur bei automatischer Farbvergabe im Chart!!!!
ci = 16
id = 0
For Each sr In sc
id = id + 1
With sr
.Border.linestyle = xlNone
.ApplyDataLabels xlDataLabelsShowValue
With .DataLabels
.NumberFormat = "0.0"
.AutoScaleFont = False
.Font.name = "Tahoma"
On Error GoTo 0
If id