• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 425
  • Last Modified:

Select Data Points From Chart

Hi Experts,

Is there any way to select data Point from Excel chart & it will reflect on Spread sheet - Column?


Thanks
0
Naresh Patel
Asked:
Naresh Patel
  • 9
  • 5
1 Solution
 
Rgonzo1971Commented:
Hi,

Could you be more precise?

Regards
0
 
Naresh PatelTraderAuthor Commented:
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
0
 
Naresh PatelTraderAuthor Commented:
Is That Possible?
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
Rgonzo1971Commented:
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

Open 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

Open in new window

Regards
EE20140410.xlsm
0
 
Naresh PatelTraderAuthor Commented:
Error
Thank You
0
 
Rgonzo1971Commented:
Is the code in a class module?

Is the class module named like I wrote?
0
 
Naresh PatelTraderAuthor Commented:
will you pls send me WB which have this modules? I am attaching mine...see what is the problem
LT-Chart-Select.xlsm
0
 
Naresh PatelTraderAuthor Commented:
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.Selected Points Want In Sheet

Thanks
0
 
Rgonzo1971Commented:
Hi,

let try this

it seems that Stock chart cannot be combined with another chart

Now the code is adjusted for dates descending
EE20140410v1.xlsm
0
 
Naresh PatelTraderAuthor Commented:
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
0
 
Naresh PatelTraderAuthor Commented:
Sir Rgonzo1971,

Awesome - Mind blowing.


Thank You Very Very Much
0
 
Naresh PatelTraderAuthor Commented:
May I ask one step further on this  context? (New Question)
0
 
Rgonzo1971Commented:
New Question is a good idea
0
 
Naresh PatelTraderAuthor Commented:
Next Quetion Link


Thank you Very Very Much
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 9
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now