Connecting points in a graph

Hi. I have a data and it has been plotted into a graph. Here's what i have: I have 2 points, point A and point B with caps, 1.00 and 2.00 respectively. So now i need to draw 3 parallel lines, i.e from the caps and the main point itself. How do i do that? Manually will be of course selecting a line from the shapes. Any suggestions? Thanks a lot in advance.

I've attached the graph in Ms Word. The point is the brown box on your left. -2.00 and 10.00 coordinate. Please help. Thanks.

I'm sorry, the file is still too large. I cant seem to shrink it to send it here. Is there another way? Besides, the information here is private and confidential. I would appreciate it if you could view it in word first.

Ok, its was a bit difficult as all the value are plotted with calculated values from various sheets. Here's the sample. What i would like to achieve is the one with the blue line. The caps and the point itself has to have a parallel line till it almost reaches the next range. X-axis is the range.

Ok. I believe now the graph is complete. I did what u asked. The bold lines (3 lines) are what i am suppose to do. It doesnt have to touch the 2nd point in the next range. It is just to show comparison. Thanks.

I practically gave you the information you wanted! I just need to connect the caps of a point to the next point. The lines have to be parallel. why 3 lines? its because the first and the third has to come from the caps of the point A and the second from right in the middle. Its okay if you find it difficult. Sorry for the trouble. I'll just ask somewhere else. Thank you for your time.

I appreciate you understanding my problem. I have found a solution to it but using VB code. I do not understand the code that well. Is it alright to post it here?

Thanks. Here's the code:

Option Explicit
Private SheetGraph As Worksheet
Private SheetData As Worksheet
Private Const FrequencyCount As Integer = 21
Private ReferenceData As String
Private Const sUpperLimit As String = "Upper"
Private Const sLowerLimit As String = "Lower"

Public Sub ChangeChartsParameters()

Set SheetGraph = Sheet2
Set SheetData = Sheet3
ReferenceData = "=" & SheetData.Name & "!"
Chart "110", 334
'Chart "100", 312
'Chart "90", 290
'Chart "80", 268
'Chart "70*", 246
'Chart "70", 224
'Chart "60*", 202
'Chart "60", 180
'Chart "50*", 158
'Chart "50", 136
'Chart "40*", 114
'Chart "40", 92
'Chart "20", 48
'Chart "110", 334

MsgBox "Done"

End Sub

Private Sub Chart(dB As String, rowStart As Integer)
    
    Dim ChartObject As Object
    
    'Find the value of dB which matches with ChartTitle
    For Each ChartObject In SheetGraph.ChartObjects
        ChartObject.Activate
        If Left(ActiveChart.ChartTitle.Caption, Len(dB)) = dB Then
            Dim Series As Object
            For Each Series In ActiveChart.SeriesCollection   *
                If Series.Name = sUpperLimit Or Series.Name = sLowerLimit Then  *
                    ChangeSeriesLimit Series, rowStart
                Else
                   ChangeSeries Series, rowStart
                End If
            Next
        
        End If
    Next

End Sub

Private Sub ChangeSeries(Series As Object, rowStart As Integer)
    Dim col As Integer, colItem As Integer
    col = FindCaptionAtRow(Series.Name, 1) 'Series.Name must match with the Header
    
    colItem = 0 'Frequency
    Series.XValues = ReferenceData & "R" & rowStart & "C" & col + colItem & ":R" & rowStart + FrequencyCount - 1 & "C" & col + colItem
    colItem = 1 'Attenuation
    Series.Values = ReferenceData & "R" & rowStart & "C" & col + colItem & ":R" &  rowStart + FrequencyCount - 1 & "C" & col + colItem    *
    
    'Change Error Bars
    colItem = 2 'MU for Y Error Bars
    Dim errorRange As String
    errorRange = ReferenceData & "R" & rowStart & "C" & col + colItem & ":R" & rowStart + FrequencyCount - 1 & "C" & col + colItem
    Series.ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, Amount:=errorRange, MinusValues:=errorRange
End Sub

Private Sub ChangeSeriesLimit(Series As Object, rowStart As Integer)
    Dim colX As Integer, colLimit
    colX = FindCaptionAtRow("Ref", 1) '"Ref" must match with the Header
    colLimit = FindCaptionAtRow(Series.Name, 2) '"Ref" must match with the Header

    Series.XValues = ReferenceData & "R" & rowStart & "C" & colX & ":R" & rowStart + FrequencyCount - 1 & "C" & colX
    Series.Values = ReferenceData & "R" & rowStart & "C" & colLimit & ":R" & rowStart + FrequencyCount - 1 & "C" & colLimit

End Sub

Private Sub ChangeErrorBars(Series As Object, index As Integer)   *The whole section
    
    With Series
        .ErrorBar Direction:=xlX, Include:=xlBoth, _
        Type:=xlCustom, Amount:="=Sheet1!R1C3:R10C3", MinusValues:= _
        "=Sheet1!R1C3:R10C3"
        .ErrorBar Direction:=xlY, Include:=xlBoth, _
        Type:=xlCustom, Amount:="=Sheet1!R1C3:R10C3", MinusValues:= _
        "=Sheet1!R1C3:R10C3"
    End With

End Sub

'Find a string at desired row and return column number
Private Function FindCaptionAtRow(label As String, row As Integer) As Integer
    Dim i As Integer
    Do
        i = i + 1
        Debug.Print SheetData.Cells(row, i).Value    *
    Loop Until SheetData.Cells(row, i).Value = label Or i = 100
    If i = 100 Then
        Err.Raise 1001, "FindCaptionAtRow", "Can't find match"
    Else
        FindCaptionAtRow = i
    End If
End Function

The * indicates the ones i need explanation. Thanks a lot.