Zoom with mouse

  • Hello


    I have the following macro in my personal workbook:
    sub zoomin()
    Dim myzoom As Integer
    myzoom = ActiveWindow.zoom
    If myzoom <= 400 Then
    ActiveWindow.zoom = myzoom + 5
    End If
    End Sub



    Sub zoomout()
    Dim myzoom As Integer
    myzoom = ActiveWindow.zoom
    If myzoom >= 10 Then
    ActiveWindow.zoom = myzoom - 5
    End If
    End Sub


    This is for zooming in and out a worksheet. I have added two commands in the tollbar and linked to above macros so that clicking on one command will zoom in and clicking on the other will zoom out. It works well.
    Is it possible to link the above macros to mouse.... I mean something like this: shiftR and left mosue click will zoom in and shiftR+ rightmouse click zoom out.


    Appreciate your comments.