Zoom in on an image (picture) displayed in workbook

[SerenityNetworks]

I'm using the following code to display an image in a workbook.

Sub Image21()
    On Error GoTo ProcExit21
    Dim objPicture As Picture
    With Sheets("Working").Cells(1, 1) ' Picture displays in cell from row, column
        Set objPicture = .Parent.Pictures.Insert(Sheets("Working").Cells(2, gvarImgColumn + 20).Value) ' Picture path row, column
        objPicture.Width = Sheets("Parameters").Cells(83, 2).Value
        'objPicture.Height = Sheets("Parameters").Cells(84, 2).Value
        objPicture.Top = Sheets("Parameters").Cells(85, 2).Value
        objPicture.Left = Sheets("Parameters").Cells(86, 2).Value
        objPicture.Border.Color = RGB(69, 107, 43)
        objPicture.Border.Weight = xlThick
        objPicture.Border.LineStyle = xlContinuous
    End With
ProcExit21:
End Sub

I would like to be able to zoom in on the image. I am not looking to simply make the image bigger; that I can do. I can control contrast and brightness for all images displayed, rotate a single image, and more, but I am not seeing how I can zoom in on a single image.

Is there a way?

Thanks in advance,
Andrew

 

[Jaafar Tribak]

There is something in the set of routines that detect a mouse click on an image that causes the problem. I just can't figure out what. For the moment I'm going to abandon the listener and just go with button clicks. Doing so will add a mouse click (to select the image to work upon), but I can live with that.

I'll post back on my progress.

Thank you again,
Andrew

Hi Andrew,

I remember starting to write some code to zoom in\out on worksheet images sometime ago, but never finished the project.

Are you wanting to zoom the images just by using the mouse scrollwheel when pointing with the mouse over the image ?

Let me know and I'll post some code.

Regards.

 

[SerenityNetworks]

...Are you wanting to zoom the images just by using the mouse scrollwheel when pointing with the mouse over the image ?

I believe that would be helpful. The region of interest within the picture usually isn't exactly centered, but often it is reasonably close. Being able to use the scrollwheel to zoom in quickly would be faster and more exact than cropping fixed percentages by clicking on a button. I could then crop the edges as needed to center the region of interest. When I have 10k+ image sets to review, efficiency means everything.

Thank you.