Chart Zooming

[Mordred]

Hi all,

I am in the process of creating a "Graphs" sheet that will have approximately 25 charts on it. I wanted to spread the charts out but the user wants them all on one sheet so there it is. Anyhow, for each chart, there is a range of cells that are filled with a colour/color to backdrop each chart. What I want to have done is: upon click of backdrop cells, zoom to 70; when click again, zoom out to 25. This way, when the user wants to look at a specific chart, he/she can click and zoom; when he/she is finished looking at the chart, he/she can click and zoom out. Is this possible? I've been playing around with the Zoom method but so far I can only get it to work like this:

ActiveWindow.Zoom = 70

This way does not zoom in on a specific area or user click.

As always, input is greatly appreciated.

[Mordred]

Using

Sub Chart1_Click()
    
    ActiveWindow.Zoom = 70
    
End Sub

I can get it to go one way but not back again.

[Mordred]

I think I need a "Click 1" and "Click 2" type of sequence per chart but am unsure as to how that can be done.

[Mordred]

That wasn't so bad I guess, here is my solution:

Sub Chart1_Click()
    
    If ActiveWindow.Zoom = 35 Then
        ActiveWindow.Zoom = 70
        If ActiveWindow.Zoom = 70 Then Exit Sub
    End If
    If ActiveWindow.Zoom = 70 Then
        ActiveWindow.Zoom = 35
        If ActiveWindow.Zoom = 35 Then Exit Sub
    End If
    
End Sub