Chart with lines connecting 2 different X Y points

[JugglerJAF]

I'm trying to figure out how to re-create in Excel those curves that everyone drew as a kid by connecting points on an X and Y axis. One of these:

For example, I want to plot:

• point 0,5 and connect it with a line to the point 1,0
• point 0,4 and connect it with a line to the point 2,0
• point 0,3 and connect it with a line to the point 3,0
• point 0,2 and connect it with a line to the point 4,0
• point 0,1 and connect it with a line to the point 5,0

I've tried a few layouts and approaches, line charts and XY Scatter charts, but I can't get it to plot the points and connecting lines as I want. I'm sure there's a simple way to do this, but I can't figure it out. Help!!

 

[XLfriend777]

Hello - JugglerJAF - You might try something like the code below. Hope this helps.

Sub PatternWithLines()
Set myDocument = Worksheets(1)
i = 10
While i < 200
'AddLine(Begin X, Begin Y, End X, End Y)
    With myDocument.Shapes.AddLine(10, i, i, 200).Line
     .ForeColor.RGB = RGB(0, 0, 255)
    End With
i = i + 10
Wend

End Sub

 

[XLfriend777]

Hello JugglerJAF - I couldn't resist playing around now that you got me started. Take a look at the code below to draw the imaged figure. All the best.

Sub PatternsWithLinesAll()
Set myDocument = Worksheets(1)
i = 0

While i < 200
'Green - Bottom Right
    With myDocument.Shapes.AddLine(200, 10 + i, 200 - i, 200).Line
     .ForeColor.RGB = RGB(0, 255, 0)
    End With
'Blue - Bottom Left
    With myDocument.Shapes.AddLine(10, i + 10, i + 10, 200).Line
     .ForeColor.RGB = RGB(0, 0, 255)
    End With
'Red - Top Right
    With myDocument.Shapes.AddLine(i + 10, 10, 200, i + 10).Line
     .ForeColor.RGB = RGB(255, 0, 0)
    End With
'Yellow - Top Left
    With myDocument.Shapes.AddLine(10, 10 + i, 200 - i, 10).Line
     .ForeColor.RGB = RGB(255, 255, 0)
    End With
'Wait 1 second
Application.Wait (Now + TimeValue("0:00:01"))
i = i + 10
Wend

End Sub