Hi
if you remove the axis labels from your vertical axis and move the axis right to accommodate new labels, this macro will:
1) insert data labels for each visible series (not the white one you're using to set the "start" time"),
2) change the label colour to the same colours as that series' fill, and
3) move the data labels to the left of the chart (12 points from the left in this example, you may want to change that).
The Yellow looks very pale - you may like to try a darker colour.
Sub colour_labels()
'
Dim ss As Series, pp As Point
For Each ss In ActiveChart.SeriesCollection
If ss.Format.Fill.ForeColor.RGB <> 16777215 Then
ss.ApplyDataLabels
With ss.DataLabels
.ShowValue = False
.ShowSeriesName = False
.ShowCategoryName = True
.Font.Color = ss.Format.Fill.ForeColor.RGB
End With
For Each pp In ss.Points
pp.DataLabel.Left = 12
Next pp
End If
Next ss
End Sub
Bookmarks