Chart Zoomer (Resizer)

**Rasm** · 07-05-2011, 05:20 AM

**Admin** · 07-06-2011, 10:24 PM

Hi Rasm,

Sorry for the late reply. Forum was down for the last 24 hours

Replace

Code:

If objChartObject.Chart.ChartArea.Interior.Color = -2 Then
        objChartObject.Chart.ChartArea.Interior.Color = ZoomInChartAreaColor
    End If

with

Code:

If objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB = ZoomInChartAreaColor Then
        objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB = ZoomInChartAreaColor
    End If

Essentially replace

Code:

objChartObject.Chart.ChartArea.Interior.Color

with

Code:

objChartObject.Chart.ChartArea.Format.Fill.ForeColor.RGB

HTH

**Alexpi** · 10-22-2011, 01:13 AM

This Chart Zoomer is exactly what I needed for a dashboard I'm working on. I did notice that after using this a few times I am unable to scroll down or right...Any idea how to fix this?

Thanks again for this chart zoomer. you have no idea how helpful this is!

Thanks,

A

**Excel Fox** · 10-22-2011, 01:39 AM

Search for the line

Code:

.Parent.ScrollArea = strVsblRngAddr

and comment it/remove it.

**marcnz** · 12-14-2020, 06:11 AM

I did not realise this is actually just a chart blow up, it does not allow to zoom in a portion of the chart.
I cannot have any Excel add-ins installed due to network security at the workplace (understandable...) and I must develop a chart tool where it is possible to highlight any section of a chart and "zoom" into this section, which means:

1. Identifying any series currently on the chart
2. identifying the x-axis date/time values boundaries highlighted from the zoom area on the chart
3. filtering the pivot table accordingly (I am working with pivot tables > pivot chart from a recordset extracted via ODBC VBA connection)

I have difficulties finding such information on Google.

This tool is definitely a very nice tiny chart expansion tool

Any suggestion would be greatly appreciated.
Thank you