I am graphing time versus data and have made a linear XY Scatter Plot with solid lines. However for certain points, future in time, I would like to make the solid lines into dash lines.

I can't seem to figure out the VBA command to make the line solid or dash.

So far I have:

Range("A1:B4").Select
Range("B4").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B4"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Thanks