Series Line colors

I generate the following chart using the code below it. How do I change the line colors and legend line colors
Also I want to slant the dates at the bottom at a 45 degree angle. Is that possible?

Sub oChart_Actualv_Budget(ByVal oConnectionString As String, ByVal oSQL As String, ByVal oFilter As String)

            'First build GridView 
            Dim oGridView As New GridView
            Dim dt As DataTable = SQL_Data_Table.GetSQLDataTable(oConnectionString, oSQL)
            If oFilter <> "" Then
                dt.DefaultView.RowFilter = oFilter
            End If
            oGridView.DataSource = dt
            oGridView.Visible = False

            ' Initialize the Chart object    
            Dim chart1 As New Chart()
            chart1.ID = "chart1"

            'Add to do code here
            If Not IsPostBack Then
                ' Initialize objects and elements
                Dim chartArea1 As New ChartArea()
                Dim legend1 As New Legend()
                Dim series1 As New Series()
                Dim series2 As New Series()
                Dim series3 As New Series()

                ' Set the Chart Properties
                chart1.Width = 1200
                'chart1.Height = 340

                chart1.Palette = ChartColorPalette.Light
                chart1.BackColor = System.Drawing.Color.Gray
                chart1.BorderSkin.SkinStyle = BorderSkinStyle.Emboss

                chart1.BorderlineColor = System.Drawing.Color.Gray
                'chart1.BorderLineStyle = ChartDashStyle.Solid
                chart1.BorderlineWidth = 4
                chart1.BackGradientStyle = GradientStyle.LeftRight

                ' Set the ChartArea properties
                chartArea1.Name = "Default"
                chartArea1.BackColor = System.Drawing.Color.Gray
                chartArea1.BackGradientStyle = GradientStyle.LeftRight
                chart1.BorderSkin.SkinStyle = BorderSkinStyle.Raised

                chart1.BackColor = Drawing.Color.Navy
                chartArea1.BackColor = Drawing.Color.DarkRed

                ' Add the ChartArea to the Chart

                chartArea1.AxisX.LabelStyle.Enabled = True
                chartArea1.AxisX.IsLabelAutoFit = True
                chartArea1.AxisX.LabelAutoFitStyle = LabelAutoFitStyles.LabelsAngleStep30

                ' Set the Legend properties
                legend1.Name = "Default"
                legend1.Docking = Docking.Bottom
                legend1.LegendStyle = LegendStyle.Row
                legend1.Alignment = System.Drawing.StringAlignment.Center

                legend1.BackColor = System.Drawing.Color.Transparent
                legend1.BorderColor = System.Drawing.Color.Black
                legend1.BorderWidth = 1

                ' Add the Legend to the Chart

                ' Set the Series properties
                'series1.BorderColor = System.Drawing.Color.DarkSlateGray
                series1.Name = "Actual"
                series1.ChartType = SeriesChartType.Line
                series1.BorderColor = Drawing.Color.Black
                series1.BorderWidth = 4

                'series2.BorderColor = System.Drawing.Color.DarkSlateGray
                series2.Name = "Budget"
                series2.ChartType = SeriesChartType.Line
                series1.BorderWidth = 4

                'series3.Name = "Series3"
                'series3.BorderWidth = 3
                'series3.ChartType = SeriesChartType.Line

                ' Add the Series to the Chart
                chartArea1.AxisX.Interval = 1
                'chartArea1.AxisX.LabelStyle.IsEndLabelVisible = False

                Dim strDate As String
                Dim y As Decimal
                For i As Integer = 0 To oGridView.Rows.Count - 1
                    strDate = CStr(CDate(oGridView.Rows(i).Cells(2).Text))
                    y = CDec(oGridView.Rows(i).Cells(3).Text)
                    series1.Points.AddXY(strDate, y)

                For i As Integer = 0 To oGridView.Rows.Count - 1
                    strDate = CStr(CDate(oGridView.Rows(i).Cells(2).Text))
                    y = CDec(oGridView.Rows(i).Cells(4).Text)
                    series2.Points.AddXY(strDate, y)

                'Preserve the chart's state during callbacks
                'chart1.CallbackStateContent = CallbackStateContent.All
            End If

            ' You MUST add the Chart to a form. By default, form1 is created on aspx pages.
        Catch ex As Exception
        End Try

    End Sub

Open in new window

Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Robert SchuttSoftware EngineerCommented:
In my initial post on your previous question I forgot to adjust BorderColor to Color (after changing the chart type to line) but in the second post I did. So (on line 80) you can use:
series1.Color = Drawing.Color.Black

Open in new window

to set the line color and this will also change the color in the legend.

Note that you seem to have a copy/paste error on line 86, should be series2 I guess?

For the slanted labels use an angle of positive or negative 45 depending if you want to slant up or down:
chartArea1.AxisX.LabelStyle.Angle = -45

Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Great. Thanks very much
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.