zoom macro

[chobanne]

I wonder if this is possible:

I need a button macro who will, by click on it, zoom in range A1:J15 else if u click it again, it will zoom out to previous condition. Thank you

 

[Andrew Poulsom]

Try:

Sub Button1_Click()
    With ActiveWindow
        If .Zoom = 100 Then
            Range("A1:J15").Select
            .Zoom = True
        Else
            .Zoom = 100
        End If
    End With
End Sub

assigned to a button from the Forms Toolbar.

 

[chobanne]

thank you it works fine. i change the range to K1:T15, is there a chance to second click when it turn it to 100% zoom make left upper corner on screen to be cell A1, now for me is F1

 

[chobanne]

Try:

Sub Button1_Click()
    With ActiveWindow
        If .Zoom = 100 Then
            Range("A1:J15").Select
            .Zoom = True
        Else
            .Zoom = 100
        End If
    End With
End Sub

assigned to a button from the Forms Toolbar.

can u make on zoom out the left upper corner on screen to be cell A1