-
-
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
-
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
-
Search for the line
Code:
.Parent.ScrollArea = strVsblRngAddr
and comment it/remove it.
-
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
