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" <(E-Mail Removed)> wrote in message
news:3E3E1F4A-A304-41B4-8724-(E-Mail Removed)...
> The code implemented looks like this:
>
> If ActiveChart.SeriesCollection(num).Name = "BASEL" Then
>
> ActiveChart.SeriesCollection(num).DataLabels.Select
>
> 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...
Similar Threads
