Currently, I have a line graph with two lines. Line 1 is green and I don't need to change anything. Line 2 is black and I gotta change it to a thin blue line.
How do I get access to it?
I thought I could just change the index of series collection to (2) but it gives me an error.
ActiveChart.SeriesCollection(1).Select
Below is my code for my subroutine.
Sub EAChangeColorGasStorage()
'
' EAChangeColorGasStorage Macro
' November 10, 1999. Change color to pink
'
' Keyboard Shortcut: Ctrl+Shift+E
'
ActiveWindow.Visible = False
Windows("New Storage Graph.xls".Activate
Range("G32".Select
Sheets("New Charts".Select
ActiveSheet.ChartObjects("Chart 5".Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 10
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Shadow = False
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 10
.Fill.BackColor.SchemeColor = 10
End With
ActiveWindow.Visible = False
Windows("New Storage Graph.xls".Activate
Range("G37".Select
End Sub
How do I get access to it?
I thought I could just change the index of series collection to (2) but it gives me an error.
ActiveChart.SeriesCollection(1).Select
Below is my code for my subroutine.
Sub EAChangeColorGasStorage()
'
' EAChangeColorGasStorage Macro
' November 10, 1999. Change color to pink
'
' Keyboard Shortcut: Ctrl+Shift+E
'
ActiveWindow.Visible = False
Windows("New Storage Graph.xls".Activate
Range("G32".Select
Sheets("New Charts".Select
ActiveSheet.ChartObjects("Chart 5".Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.ColorIndex = 10
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Shadow = False
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 10
.Fill.BackColor.SchemeColor = 10
End With
ActiveWindow.Visible = False
Windows("New Storage Graph.xls".Activate
Range("G37".Select
End Sub