The code implemented looks like this:

If ActiveChart.SeriesCollection(num).Name = "BASEL" Then

ActiveChart.SeriesCollection(num).DataLabels.Selec t

With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

ActiveChart.SeriesCollection(num).Select

With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With

Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

End If

The problem is that the progrma does not change the formatting of the label,
but the formatting of the data series bar itself (i.e. changing the colour)
is working perfectly.

Tried different things but didn't come to a solution...

Remove this line and try again:

ActiveChart.SeriesCollection(num).Select

Note: I didn't try it, but this line changes the focus of the macro code to
the series, not the labels.

In general you should try to adjust your code so instead of selecting
objects, then formatting the selection, you directly format the objects
without selecting them. This is covered in my web site:

http://peltiertech.com/Excel/ChartsH...kChartVBA.html

and in my blog:

http://peltiertech.com/WordPress/200...ecorded-macro/

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Kathl" wrote in message
...
The code implemented looks like this:

If ActiveChart.SeriesCollection(num).Name = "BASEL" Then

ActiveChart.SeriesCollection(num).DataLabels.Selec t

With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

ActiveChart.SeriesCollection(num).Select

With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With

Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

End If

The problem is that the progrma does not change the formatting of the
label,
but the formatting of the data series bar itself (i.e. changing the
colour)
is working perfectly.

Tried different things but didn't come to a solution...

Heah, with deleting all selections everything's working.

Thx a lot


"Jon Peltier" wrote:

Remove this line and try again:

ActiveChart.SeriesCollection(num).Select

Note: I didn't try it, but this line changes the focus of the macro code to
the series, not the labels.

In general you should try to adjust your code so instead of selecting
objects, then formatting the selection, you directly format the objects
without selecting them. This is covered in my web site:

http://peltiertech.com/Excel/ChartsH...kChartVBA.html

and in my blog:

http://peltiertech.com/WordPress/200...ecorded-macro/

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Kathl" wrote in message
...
The code implemented looks like this:

If ActiveChart.SeriesCollection(num).Name = "BASEL" Then

ActiveChart.SeriesCollection(num).DataLabels.Selec t

With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

ActiveChart.SeriesCollection(num).Select

With Selection.Border
.ColorIndex = 57
.Weight = xlHairline
.LineStyle = xlContinuous
End With

Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

End If

The problem is that the progrma does not change the formatting of the
label,
but the formatting of the data series bar itself (i.e. changing the
colour)
is working perfectly.

Tried different things but didn't come to a solution...