+ Reply to Thread
Results 1 to 2 of 2

Interactive graph with table cells

Hybrid View

bvwn Interactive graph with table... 08-23-2017, 01:56 AM
Andy Pope Re: Interactive graph with... 08-23-2017, 04:24 AM
  1. #1
    Registered User
    Join Date
    08-23-2017
    Location
    Kajang, Malaysia
    MS-Off Ver
    2016
    Posts
    1

    Interactive graph with table cells

    I have big data set (~5000 data). I wish to know the position of point in graph. Is there anyway that I can select one point in graph and from there I get the corresponding cell "activated" so that the point can move according to selected cell?

    Add on: Is there any possibility that the graph can "follow" the selected cell so that I don't have to scroll up and down to select the cell and to look into the graph?
    Last edited by bvwn; 08-23-2017 at 02:19 AM.

  2. #2
    Forum Guru Andy Pope's Avatar
    Join Date
    05-10-2004
    Location
    Essex, UK
    MS-Off Ver
    O365
    Posts
    20,481

    Re: Interactive graph with table cells

    You can use chart events to determine selection of series and point.
    Decode the series formula in order to locate source cell.

    toggle between worksheets in order to set a reference to the chart. If this does what you want then you can add code to the Thisworkbook open event to enable chart events.


    Private WithEvents m_cht As Chart
    
    Private Sub m_cht_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
    
        Dim data As Range
        
        If ElementID = 3 Then
            If Arg1 = 1 Then
                If Arg2 > 0 Then
                    Set data = Range(Split(m_cht.SeriesCollection(Arg1).Formula, ",")(2))
                    Application.Goto data.Cells(Arg2), True
                    data.Cells(Arg2).Select
                    m_cht.Parent.Top = data.Cells(Arg2).Top
                    m_cht.Refresh
                End If
            End If
        End If
        
    End Sub
    
    
    Private Sub Worksheet_Activate()
    
        If m_cht Is Nothing Then
            Set m_cht = Me.ChartObjects(1).Chart
        End If
        
    End Sub
    Attached Files Attached Files
    Cheers
    Andy
    www.andypope.info

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Interactive Graph with Rollover Hyperlinks and UDFs - Pivot Tables
    By ronkeakano in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 01-17-2017, 02:08 PM
  2. Interactive table
    By Dewdrop in forum Excel Formulas & Functions
    Replies: 1
    Last Post: 11-30-2015, 07:54 AM
  3. scatterplot based on datavalidation selection (interactive graph)
    By alexcrofut in forum Excel Charting & Pivots
    Replies: 0
    Last Post: 05-21-2014, 11:18 AM
  4. Replies: 4
    Last Post: 09-08-2011, 10:29 AM
  5. Interactive Graph with Rollover Hyperlinks and UDFs
    By gshocker08 in forum Excel General
    Replies: 4
    Last Post: 09-07-2011, 11:15 PM
  6. Interactive Excel Graph???
    By baileyhsi in forum Excel General
    Replies: 1
    Last Post: 06-25-2010, 11:11 AM
  7. Interactive Start Date with a Graph
    By lmj4 in forum Excel Programming / VBA / Macros
    Replies: 18
    Last Post: 05-21-2010, 05:12 AM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1