Page 1 of 2 12 LastLast
Results 1 to 10 of 15

Thread: Chart Zoomer (Resizer)

  1. #1
    Administrator Admin's Avatar
    Join Date
    Mar 2011
    Posts
    1,123
    Rep Power
    10

    Chart Zoomer (Resizer)

    Hi All,

    Haven't seen anything yet. A great tool for dashboards.

    I welcome any comments/bugs.

    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    https://eileenslounge.com/viewtopic.php?p=317218#p317218
    https://eileenslounge.com/viewtopic.php?p=316955#p316955
    https://eileenslounge.com/viewtopic.php?p=316955#p316955
    https://eileenslounge.com/viewtopic.php?p=316940#p316940
    https://eileenslounge.com/viewtopic.php?p=316927#p316927
    https://eileenslounge.com/viewtopic.php?p=317014#p317014
    https://eileenslounge.com/viewtopic.php?p=317006#p317006
    https://eileenslounge.com/viewtopic.php?p=316935#p316935
    https://eileenslounge.com/viewtopic.php?p=316875#p316875
    https://eileenslounge.com/viewtopic.php?p=316254#p316254
    https://eileenslounge.com/viewtopic.php?p=316280#p316280
    https://eileenslounge.com/viewtopic.php?p=315915#p315915
    https://eileenslounge.com/viewtopic.php?p=315512#p315512
    https://eileenslounge.com/viewtopic.php?p=315744#p315744
    https://www.eileenslounge.com/viewtopic.php?p=315512#p315512
    https://eileenslounge.com/viewtopic.php?p=315680#p315680
    https://eileenslounge.com/viewtopic.php?p=315743#p315743
    https://www.eileenslounge.com/viewtopic.php?p=315326#p315326
    https://www.eileenslounge.com/viewtopic.php?f=30&t=40752
    https://eileenslounge.com/viewtopic.php?p=314950#p314950
    https://www.eileenslounge.com/viewtopic.php?p=314940#p314940
    https://www.eileenslounge.com/viewtopic.php?p=314926#p314926
    https://www.eileenslounge.com/viewtopic.php?p=314920#p314920
    https://www.eileenslounge.com/viewtopic.php?f=30&t=40533&p=314837#p314837
    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    Attached Files Attached Files
    Last edited by DocAElstein; 05-20-2024 at 04:00 PM.

  2. #2
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14
    Krish

    Looks good - However I am searching for a tool to zoom (meaning changing the Axes) - As you know I got your file (this thread) by your reply on MrExcel - I started a thread over there

    How to zoom on charts using VBA

    So maybe you can add to the discussion ( It was a much bigger question than I expected - lol) - there is a piece of code that actual works quite well - but it needs finishing. It is way over my head - so maybe take a look see. It turns out that there is really no good tool for Excel to zoom.

  3. #3
    Junior Member
    Join Date
    Apr 2011
    Posts
    1
    Rep Power
    0

    Krishnarkumar's Chart Zoomer

    Just wanted to let everyone know that I downloaded Kris's chart zoomer workbook and it really works great.

    Jim

  4. #4
    Administrator Admin's Avatar
    Join Date
    Mar 2011
    Posts
    1,123
    Rep Power
    10
    @ Rasm,

    Thanks for the comment.

    As far as the discussion at MrE, I think, only Jaafar could assist you as I'm not up to his level when it comes API

    @ Jim,

    Thanks for the nice comments. You don't need to start a thread to provide the feedback.

  5. #5
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14
    Krish - I really like your zoomer - However it is right now activated by the user having to assign a macro to any new chart. I can do that - but many of my users cannot - you then use the Application.caller.
    It would be nice if the user can simply click the chart - do the (un)zoom - without assigning any macro. I can replace your application.caller with simply the chart number and I can use your call to the ZoomChartInAndOut procedure - no problem. As I said I really like it - but as you know - there is always suggestions

    The other feature that would be very nice - is if you could have a split screen - I offen want to Zoom charts side by side - or even 2*2 charts (4 charts on a single screen.

    Anyway - I am just starting to figure out how to use your zoomer - very nice job

  6. #6
    Administrator Admin's Avatar
    Join Date
    Mar 2011
    Posts
    1,123
    Rep Power
    10
    Hi,

    Here is Version #1. Don't need to assign the macro with the charts.

    Enjoy !
    Attached Files Attached Files

  7. #7
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14
    Sweet - You added Chart events in the class module - I will have to play some more - but looks good.

  8. #8
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14
    Krish - that new version is great. Below is part of my code - it generates charts (2n code section) - so in order for me to use your code - I have to switch sheets - then come back to the sheet - Then I assume it executes GetChartObjects - It all works great (guess I will just make the call to GetChartObjets from my code) - however in the second code part is my chart generation code - At first I just had the next chart on top of the previous chart .top+40 & .Left + 40 - in other words all my charts are stacked - I may have 4 to 8 charts stacked - however that freezes up Excel in a very bad way - It looks like as long as the charts dont overlay - everything works - so the code I show is where I make sure the charts dont touch. I think that is what the problem is. I am not complaining - just trying to make it better - cuz I like your routine.

    Code:
    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        GetChartObjects Sh 'Krish code
    End Sub
    
    Private Sub Workbook_Open()
        Load FormSlt
        FormSlt.Show vbModeless
        GetChartObjects ActiveSheet 'Krish code
    End Sub
    Part of my chart making code
    Code:
     ActiveSheet.ChartObjects.Add Left:=50, Top:=50, Width:=600, Height:=300
        NumCharts = ActiveSheet.ChartObjects.Count
        If NumCharts > 1 Then
            ActiveSheet.ChartObjects(NumCharts).Left = ActiveSheet.ChartObjects(NumCharts - 1).Left '+ 40
            ActiveSheet.ChartObjects(NumCharts).Top = ActiveSheet.ChartObjects(NumCharts - 1).Top + 40 + ActiveSheet.ChartObjects(NumCharts - 1).Height
            ActiveSheet.ChartObjects(NumCharts).Height = ActiveSheet.ChartObjects(NumCharts - 1).Height
            ActiveSheet.ChartObjects(NumCharts).Width = ActiveSheet.ChartObjects(NumCharts - 1).Width
        End If
        ActiveSheet.ChartObjects(NumCharts).Activate
        Dim Achart As ChartObject
        Set Achart = ActiveSheet.ChartObjects(NumCharts)
        With Achart.Chart
            .ChartType = xlLine

  9. #9
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14
    Krish - one more question - how can I edit my charts - i.e. Axes-layout - design ext - is there a procedure to call that allow me to toggle your code on/off. Sorry to be a pest - but I want to use this code-

  10. #10
    Senior Member
    Join Date
    Apr 2011
    Posts
    190
    Rep Power
    14

    Chart zoomer by Kris

    Chris
    I really like your chart zoomer (Readers - it is under downloads if you have not tried it).

    Attached is 9 charts made by my own code - I have added your code to my code - works great - except the charts after being zoomed become transparent - the 3 charts of the 1st shift type has been viewed by the chart zoomer - the last 6 has not - however if you now click on a 2nd shift chart it become transparent after I make it small - This is a problem as I have stuff in the cells behind - so now it looks kinda bad. Anyway to make sure the charts are not becoming transparent.
    Thanks in advance
    Attached Files Attached Files
    xl2007 - Windows 7
    xl hates the 255 number

Similar Threads

  1. Drag And Zoom Chart Zoomer Add-In
    By Jason Vint in forum Download Center
    Replies: 3
    Last Post: 08-02-2013, 02:30 PM
  2. Excel Chart Showing Values on Angle: Nightingale Chart
    By Rajan_Verma in forum Rajan Verma's Corner
    Replies: 0
    Last Post: 10-17-2012, 06:39 PM
  3. Replies: 1
    Last Post: 05-20-2012, 12:23 PM
  4. Chart zoomer by Kris
    By Rasm in forum Excel Help
    Replies: 2
    Last Post: 07-06-2011, 10:24 PM
  5. Krishnarkumar's Chart Zoomer
    By Jim Fleming in forum Excel Help
    Replies: 0
    Last Post: 04-03-2011, 09:04 PM

Tags for this Thread

Posting Permissions

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