Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
[b].ColorIndex = 3[/b]
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlAutomatic
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
I have since discovered you can do it by setting the ColorIndex property of the associated Border object.
With ActiveSheet
.SeriesCollection(1).Border.ColorIndex = 57 'Change color of line on line graph
.PlotArea.Interior.ColorIndex = 19 ' Change color of graph area
End With