Series Lines Object Example

Sub FormatSeriesLines()

Dim oCG As ChartGroup

Dim oSL As SeriesLines

'Loop through the column groups on the chart

For Each oCG In ActiveSheet.ChartObjects("Chart 1"

1.Chart.ColumnGroups

'Make sure we have some series lines

oCG.HasSeriesLines = True

'Get the series lines

Set oSL = oCG.SeriesLines

'Format the lines

With oSL

.Border.Weight = xlThin

.Border.ColorIndex = 5

End With

Next

End Sub

0 0

Post a comment