Select Data Points From Chart

Hi,

Could you be more precise?

Regards

Assume I have stock data in excel chart & if I choose select mode & what ever point I select on chart it will reflect on spreadsheet column.  is that possible ?

Thanks

Is That Possible?

Hi,

See example

With class Module named CHighlightPoint

Public WithEvents cht As Chart
Private Sub cht_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
                            ByVal x As Long, ByVal y As Long)
  HighlightPoint x, y
End Sub

Private Sub HighlightPoint(ByVal x As Long, ByVal y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
Dim SeriesAddress As String
Dim ArrRange As Variant
  
  cht.GetChartElement x, y, ElementID, Arg1, Arg2

  If ElementID = xlSeries And Arg2 <> -1 Then
    Set ser = cht.SeriesCollection(Arg1)
    SeriesAddress = Split(Split(ser.Formula, ",")(2), "!")(1)
    FirstCell = Split(SeriesAddress, ":")(0)
    Set Rng = Range(SeriesAddress)
    ArrRange = Rng
    If UBound(ArrRange, 1) > UBound(ArrRange, 2) Then
        Set myCell = Range(FirstCell).Offset(Arg2 - 1)
    Else
        Set myCell = Range(FirstCell).Offset(0, Arg2 - 1)
    End If

    Rng.Interior.Pattern = xlNone
    myCell.Interior.Color = vbYellow
  End If

End Sub

Select allOpen in new window

and module code use ActivateChart to be able to Highlight the points

Global gclsHighlightPoint As New CHighlightPoint

Sub ActivateChart()
  If Not ActiveChart Is Nothing Then
    Set gclsHighlightPoint.cht = ActiveChart
  Else
    MsgBox "Select a chart and try again.", vbExclamation, "No Active Chart"
  End If
End Sub

Sub DeactivateChart()
  Set gclsHighlight.cht = Nothing
End Sub

Select allOpen in new window

Regards
EE20140410.xlsm

Thank You

Is the code in a class module?

Is the class module named like I wrote?

will you pls send me WB which have this modules? I am attaching mine...see what is the problem
LT-Chart-Select.xlsm

i had seen your attachment...its seems working fine, but i want to select ZigZag Points in Chart & want that selected points in some different column in sheet ...say C column.

Thanks

Sir Rgonzo1971,

i had just thought in my mind ...as it is possible or not? and you come with super-fast code.really impressive.i cant test your file as i am @ home. surly i will revert you back. as generally i dotn like to expert to waite for my reply but coincidentally i have some things to do today....


Thanks

Sir Rgonzo1971,

Awesome - Mind blowing.


Thank You Very Very Much

May I ask one step further on this  context? (New Question)

New Question is a good idea

Next Quetion Link


Thank you Very Very Much