change in the formatting of data series

  • Thread starter Thread starter Kathl
  • Start date Start date
K

Kathl

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...
 
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/ChartsHowTo/QuickChartVBA.html

and in my blog:

http://peltiertech.com/WordPress/2008/03/11/how-to-fix-a-recorded-macro/

- Jon
 
Back
Top