Need to zoom to a user selected area of an image.

[dyates3]

I have an image open in a form. The user needs to select a section of the image by drawing a rectangle and zoom to that area.

I've got it working with scroll bars and command buttons but it's not elegant. A lot of clicking and sliding.

I could do it using Shapes etc but am hoping there is something in the library that will make my life easier.

Thanks in advance
D

 

[dyates3]

Sorry, First post
Excel 365 but am flexible. Can use any Excel

 

[Logit]

.
If you are ok with a macro run by a command button :

Option Explicit


Sub ZoomToRange(ByVal ZoomThisRange As Range, ByVal PreserveRows As Boolean)


Dim Wind As Window


Set Wind = ActiveWindow
Application.ScreenUpdating = False
'
' Put the upper left cell of the range in the top-left of the screen.
'
Application.Goto ZoomThisRange(1, 1), True


With ZoomThisRange
    If PreserveRows = True Then
        .Resize(.Rows.Count, 1).Select
    Else
        .Resize(1, .Columns.Count).Select
    End If
End With


With Wind
    .Zoom = True
    .VisibleRange(1, 1).Select
End With


End Sub

'Command button to run this macro. User selects range then clicks the button.
'Works with a sheet range .. hopefully it can be modified for an image ... unless the image is loaded to a sheet ... it should work.


Sub zoomIt()
ZoomToRange ZoomThisRange:=Selection, PreserveRows:=True
End Sub