How to zoom on charts using VBA

[Rasm]

Just wondering if Excel has a zoom function where I can simply highlight a area on a chart - by click and drag kinda deal - then that area is zoomed in on.

I want to do this using VBA

 

[pfickers]

GREAT ! But I was specifically interested in the zooming feature and not enlarging of the graph. Though this tool is also very convenient !

 

[canesbr]

Only 13 years too late!
Set sr = Activesheet.ChartObjects.ShapeRange
sr("Chart 3").height=100
sr(sr.count).height=400 'sets height of last chart on sheet
Regards
Brian

 

[BRAEUERF]

I found the Excel-zoom tool by Weibull (VBA) and it's great and exactly what I need.
Now I have the problem, that it doesn't work on Pivot-Charts. Any idea how to get it working?

Thank you very much,
best regards

 

[BRAEUERF]

To specify: The following error ocurrs:
"The method 'MinimumScale' for the object 'Axis' did not work"

 

[RAM247]

I found the Excel-zoom tool by Weibull (VBA) and it's great and exactly what I need.

Can you post a link?

 

[RAM247]

Can you post a link?

haha never mind, that's what I get for jumping to the LAST page of a discussion

 

[pfickers]

Has anyone ported this code into 2020 ? I tried using it but the rectangular zoom just sticks as a box on the graph without zooming.

 

[Vonan]

Fixed an issue with the 2007 and up version that caused an error if used on dual Y axis charts.

ChartZoom_addin_2007andUP.xlam - 2007 and up
ChartZoom_addin_2000and2003.xla - 2000 & 2003

Weibull, Thank you so much for your code.

I am using Excel 2019, your code works almost fine to me except one problem.

Do
DoEvents
Loop Until ActiveChart.Shapes.Count = shapeCount + 1

It throws error here when I am creating the rectangle. It happens so soon as I click to drag a rectangle.

There are two steps to make a rectangle: click and drag. The problem happens right after the first step. It seems that there are problems with ActiveChart.Shapes.Count since the rectangle is only half created.

Any hint?