AW: und direkt aus dem Diagramm lesen?
10.08.2009 10:53:40
Beverly
Hi Alfons,
man kann entweder den Wert aus dem Beschriftungslabel auslesen:
Sub DatenpunkteFaerbenBeschriftung()
Dim inPunkt As Integer
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.ApplyDataLabels ' 0 Then
.Points(inPunkt).Interior.ColorIndex = 4
Else
.Points(inPunkt).Interior.ColorIndex = 3
End If
Next inPunkt
.DataLabels.Delete '
oder die Y-Werte direkt verwenden:
Sub DatenpunkteFaerbenYWerte()
Dim inPunkt As Integer
Dim arrY_Werte() As Variant
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
arrY_Werte() = .Values
For inPunkt = 1 To .Points.Count
If arrY_Werte(inPunkt) > 0 Then
.Points(inPunkt).Interior.ColorIndex = 4
Else
.Points(inPunkt).Interior.ColorIndex = 3
End If
Next inPunkt
End With
End Sub