VBA: Schleife, Farben für Datenbeschriftung
23.06.2016 16:41:14
Hewad
ich habe mehrere Charts (Liniendramm) auf einem Arbeitsblatt mit jeweils 3 bis 4 Linien (Serien) pro Diagramm.
Ich möchte die Farbencodes der DataLabels (Datenbeschriftung), die bereits in den Zellen C100 bis C101 stehen übernehmen (insgesamt gibt es 4 Farben)
Ich schafe zwar mit meinem Code über alle Datenbeschriftungen auf alle Diagrammen zu ändern, allerdings springt die Schleife nicht zur nächsten Zelle, sodass die allen DataLabels die gleiche Farbe zu geordnet wird.
Weiß nicht was ich falsch mache.
Vielen herzlichen Dank für die Hilfe
hier ist mein Code
Sub Chart_format()
'variablen
Dim anzahl_chart As Integer
Dim labelColor As String
Dim k As Integer
Dim i As Integer
Dim p As Integer
anzahl_chart = ActiveSheet.ChartObjects.Count
Debug.Print anzahl_chart
For p = 1 To anzahl_chart
ActiveSheet.ChartObjects(p).Activate
For k = 1 To ActiveChart.FullSeriesCollection.Count
Debug.Print ActiveChart.FullSeriesCollection.Count
ActiveChart.FullSeriesCollection(k).DataLabels.Select
Debug.Print ActiveChart.Name
i = 100
labelColor = ActiveSheet.Cells(i, 3).Value ' der Farbencode steht in der Zelle C100
Debug.Print labelColor
With Selection
.Font.Color = 0
.Font.Color = labelColor
.Font.Bold = msoTrue
End With
i = i + 1 ' Hier soll beim nächsten Durchlauf in die nächste Zelle C101 ü _
berspringen
Next k
Next p
End Sub
Anzeige