http://chandoo.org/forums/topic/interactive-excel-charts-crosshair Ask Excel and Charting Questions, Muse about Visualizations, Learn and Share - Discussion Forums - Chandoo.org en-US Wed, 22 May 2013 01:30:31 +0000 http://bbpress.org/?v=1.0.1 q http://chandoo.org/forums/search.php http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-29503 Wed, 27 Jun 2012 17:28:42 +0000 nagovind 29503@http://chandoo.org/forums/ <p>@ justdream<br /> Could you please upload the final xl sheet with the solution<br /> Please<br /> Me too need the same application<br /> Please help<br /> thanks </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17960 Tue, 07 Feb 2012 18:51:27 +0000 justdream 17960@http://chandoo.org/forums/ <p>Many Thanks Kyle McGhee,<br /> You are genius :-) </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17771 Sat, 04 Feb 2012 16:59:27 +0000 Kyle McGhee 17771@http://chandoo.org/forums/ <p>Hi justdream,</p> <p>Sorry for the delay. Thanks for the sample pictures, I see what you mean now. This should give you want you want (except for the orange label thing). Almost the same...</p> <pre><code>Option Explicit Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) Data_Points x, y End Sub Private Sub Data_Points(ByVal x As Long, ByVal y As Long) Dim ElementID As Long Dim Arg1 As Long Dim Arg2 As Long Dim Newtitle As String Dim xVals As Variant, yVals As Variant Me.GetChartElement x, y, ElementID, Arg1, Arg2 If ElementID = xlSeries Then If Arg2 &lt;&gt; -1 Then With Me.SeriesCollection(Arg1) yVals = .Values xVals = .XValues Newtitle = .Name &amp; &quot;: &quot; &amp; yVals(Arg2) &amp; &quot; @&quot; &amp; CDate(xVals(Arg2)) End With ActiveSheet.ChartTitle.Text = Newtitle End If End If End Sub</code></pre> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17709 Fri, 03 Feb 2012 14:48:22 +0000 Kamarlon 17709@http://chandoo.org/forums/ <p>Thanks Narayank991 </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17625 Thu, 02 Feb 2012 16:19:01 +0000 NARAYANK991 17625@http://chandoo.org/forums/ <p>Hi ,</p> <p>Try formatting the secondary horizontal axis :</p> <p>The existing minimum value is 0 , and the existing maximum is 8.0</p> <p>Change this to 0.5 and 8.5 ; the points match !</p> <p>Narayan </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17622 Thu, 02 Feb 2012 15:50:05 +0000 NARAYANK991 17622@http://chandoo.org/forums/ <p>Hi ,</p> <p>That's actually a problem ! I merely introduced a secondary axis for the other series , but this has shifted the series from the first one , and I am not able to line them up. I'll keep trying and let you know if I get anything.</p> <p>Narayan </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17621 Thu, 02 Feb 2012 15:45:02 +0000 Kamarlon 17621@http://chandoo.org/forums/ <p>@Narayank: Thanks. What did you change so that the months are now showing? I realize though that the green point isn't in line whith the line graph. I'm wondering if it is related to the change you made </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17601 Thu, 02 Feb 2012 11:01:36 +0000 NARAYANK991 17601@http://chandoo.org/forums/ <p>@Kamarlon ,</p> <p>This is as far as I can get !</p> <p><a href="https://skydrive.live.com/#" rel="nofollow">https://skydrive.live.com/#</a>!/view.aspx?cid=754467BA13646A3F&amp;resid=754467BA13646A3F%21150</p> <p>Narayan </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17583 Tue, 31 Jan 2012 20:14:47 +0000 justdream 17583@http://chandoo.org/forums/ <p>Thanks Kyle McGhee,<br /> This is not my objective..<br /> Please see these snapshots to get my point, Thanks to give me of your time</p> <p><a href="http://www.4shared.com/rar/PvvPE5hh/snapshots.html" rel="nofollow">http://www.4shared.com/rar/PvvPE5hh/snapshots.html</a> </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17569 Tue, 31 Jan 2012 16:02:44 +0000 Kamarlon 17569@http://chandoo.org/forums/ <p>@ Narayank991:</p> <p>Thanks for trying to assist me. Try this link. Copy and paste the link below:</p> <p><a href="https://skydrive.live.com/redir.aspx?cid=16d0ed9ee1cb5b75&amp;resid=16D0ED9EE1CB5B75" rel="nofollow">https://skydrive.live.com/redir.aspx?cid=16d0ed9ee1cb5b75&amp;resid=16D0ED9EE1CB5B75</a>!111&amp;parid=16D0ED9EE1CB5B75!102&amp;authkey=!ANLWF325ShAm7fc </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17550 Tue, 31 Jan 2012 08:09:00 +0000 NARAYANK991 17550@http://chandoo.org/forums/ <p>@Kamarlon :</p> <p>I tried accessing your worksheet , but could not.</p> <p>Narayan </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17531 Mon, 30 Jan 2012 21:29:38 +0000 Kyle McGhee 17531@http://chandoo.org/forums/ <p>Sure.</p> <p>Did you want the value of the data point and the x &amp; y? if so, just change this part<br /> <pre><code>With Me.SeriesCollection(Arg1) xVals = .Values Newtitle = .Name &amp; &quot;: &quot; &amp; xVals(Arg2) &amp; &quot; : X-axis value:&quot; &amp; x &amp; &quot; Y-axis value:&quot; &amp; y End With</code></pre> <p>if you just want the x and y values only then it is much simpler, just put this in the module, rather than the other code:<br /> <pre><code>Option Explicit Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) ActiveSheet.ChartTitle.Text = &quot;New Title: X-axis value: &quot; &amp; x &amp; &quot; Y-axis value: &quot; &amp; y End Sub</code></pre> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17529 Mon, 30 Jan 2012 20:28:30 +0000 justdream 17529@http://chandoo.org/forums/ <p>Thanks Kyle McGhee,</p> <p>Your solution 95% of what I seek :-)<br /> Just 1 favor please,<br /> Could you support me to modify your code to have both Y &amp; X axis values appear together..</p> <p>For example to be in this format:</p> <p>This is New Title: Y-axis value @ X-Axis value </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17513 Mon, 30 Jan 2012 17:23:49 +0000 Kamarlon 17513@http://chandoo.org/forums/ <p>Guys I tried Narayank991 suggestion see file: </p> <p><a href="https://skydrive.live.com/?cid=16D0ED9EE1CB5B75&amp;id=16D0ED9EE1CB5B75" rel="nofollow">https://skydrive.live.com/?cid=16D0ED9EE1CB5B75&amp;id=16D0ED9EE1CB5B75</a>!102</p> <p>The problem I'm having is that I want the X Axis to show the month and year from B3 to B10. It is currently showing the comments information in column A (so I deleted it). </p> <p>I graph consist of oen series plotted ona line graph and 2 series plotted ona n X Y graph.</p> <p>Thanks in advance. </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17497 Mon, 30 Jan 2012 13:26:49 +0000 dan_l 17497@http://chandoo.org/forums/ <p>ahhhhh, a clever label. </p> <p>slick </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17485 Mon, 30 Jan 2012 06:21:00 +0000 NARAYANK991 17485@http://chandoo.org/forums/ <p>Hi ,</p> <p>You might find this interesting :</p> <p><a href="http://www.databison.com/index.php/chart-label-trick-using-interactive-labels-on-chart/" rel="nofollow">http://www.databison.com/index.php/chart-label-trick-using-interactive-labels-on-chart/</a></p> <p>Narayan </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17475 Sun, 29 Jan 2012 22:19:43 +0000 Kyle McGhee 17475@http://chandoo.org/forums/ <p>Hi justdream,</p> <p>It will require VBA and the chart will need to be on a chart sheet (otherwise more coding will be necessary). This code should get you started. Create a chart sheet for your chart, right click the tab and select view code. Paste this into the right:<br /> <pre><code>Option Explicit Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) Data_Points x, y End Sub Private Sub Data_Points(ByVal x As Long, ByVal y As Long) Dim ElementID As Long Dim Arg1 As Long Dim Arg2 As Long Dim Newtitle As String Dim xVals As Variant Me.GetChartElement x, y, ElementID, Arg1, Arg2 If ElementID = xlSeries Then If Arg2 &lt;&gt; -1 Then With Me.SeriesCollection(Arg1) xVals = .Values Newtitle = .Name &amp; &quot;: &quot; &amp; xVals(Arg2) End With ActiveSheet.ChartTitle.Text = &quot;This is New Title: &quot; &amp; Newtitle End If End If End Sub</code></pre> <p>All of the above learned and modified from Jon Peltier @ <a href="http://peltiertech.com" rel="nofollow">http://peltiertech.com</a></p> <p>This will not work on an area chart. </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17473 Sun, 29 Jan 2012 20:44:12 +0000 dan_l 17473@http://chandoo.org/forums/ <p>I don't think there's a practical way to achieve this in Excel. I could be wrong. </p> http://chandoo.org/forums/topic/interactive-excel-charts-crosshair#post-17469 Sun, 29 Jan 2012 19:09:00 +0000 justdream 17469@http://chandoo.org/forums/ <p>Dear Excel experts,</p> <p>Could you please support me to create interactive excel charts that could be similar<br /> to below charts..<br /> <a href="http://www.xe.com/currencycharts/?from=CAD&amp;to=AED&amp;view=1D" rel="nofollow">http://www.xe.com/currencycharts/?from=CAD&amp;to=AED&amp;view=1D</a></p> <p>As you will notice, once we move mouse cursor over any point in charts, we get X &amp; Y axis values appeared above - once will help us in much faster and easier reading of chart values</p> <p>Do you have any idea how to do it over Excel?<br /> Thanks </p>