Interactive Chart Display

I am trying to build a chart (and actually I want this to apply for all embedded charts on a certain sheet) that displays information in adjacent columns when I mouse down on a data point. Right, now I'm using a MsgBox to display xvalues and values. Ideally, when I click on point (x,y1) I will get a message with the point values and also the value of (x,a) [I do not want column a to be shown on the chart]. When I click on point (x,y2) [y2 is a series shown on the chart] I want to see the point value as well as the info in (x,b). Here is an example of how I have my data set up. [note: the headings are shifted. Column b is 68, 64, ... 59.] How do I do this?

x y1 a y2 b
500 30 88 32 68
550 31 90 33 64
600 32 72 34 101
610 33 139 35 137
620 34 134 36 59

Post a workbook with your data and what you have achieved so far. It is not quite clear what you want to do, or where the data is. The forum software is not best suited to display tabular data. That's where spreadsheets are really handy.

Private Sub AllChartClass_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    Dim ElementID As Long, Arg1 As Long, Arg2 As Long
    Dim rngData As Range
    Dim vntValueA As Variant
    Dim vntValueB As Variant
  
    Set rngData = Worksheets("Sheet1").Range("A2:E9")
  
    With ActiveChart
        ' Pass x & y, return ElementID and Args
        .GetChartElement x, y, ElementID, Arg1, Arg2
 
        If ElementID = xlSeries And Button = xlPrimaryButton Then
            If Arg2 > 0 Then
                ' Extract y value from array of y values
                vntValueA = WorksheetFunction.Index _
                    (.SeriesCollection(1).Values, 1, Arg2)
                vntValueB = WorksheetFunction.Index _
                    (.SeriesCollection(2).Values, 1, Arg2)
        
                MsgBox .SeriesCollection(1).Name & " = " & vntValueA & vbLf & _
                       .SeriesCollection(2).Name & " = " & vntValueB & vbLf
                    
            End If
        End If
    End With
End Sub

                Response = MsgBox("This is " & .SeriesCollection(Arg1).Name & "." & vbCrLf _
                    & "S = " & myX & vbCrLf _
                    & "V = " & myY & vbCrLf _
                    & "bsz=" & rngData.Cells(Arg2, 3))

Have a look at John Walkenbach's class code which extract the data range from a series formula.
http://spreadsheetpage.com/index.php..._chart_series/

You can then use that range and the Offset property to get at any information relative to the data you need.

In the link I gave you you should be able to extract the data range.
You can then use the Arg2 value relative to the data range.

So assuming you have an object referencing the values in a data series forumla then something like this should work

msgbox rngValues.cells(Arg2).row