Hello,

Some time ago, I downloaded or copied/pasted an Excel
file/routine that contains various macros and an Excel
Form. The Form contains a browse button that allows a
user to browse to a directory and select a picture. The
picture is shown in an image control on the Form, which
also contains "Zoom" buttons that allows a user to
expand/reduce the selected picture.

I cannot remember where I got the routine. The purpose of
this post is to identify the author as I need to obtain
copyright clearance.

The macros behind the Form include the following:

Option Explicit

Const MAX_ZOOM = 4 ' 400% original size
Const MIN_ZOOM = 0.2 ' 20% original size
Private m_sngWidth As Single
Private m_sngHeight As Single
Private m_sngZoom As Single


Sub LoadImage(Name As String)

If Dir(Name) < "" Then
With Image1
.AutoSize = True
.Picture = LoadPicture(Name)
m_sngHeight = .Height
m_sngWidth = .Width
.AutoSize = False
.PictureSizeMode = fmPictureSizeModeStretch
m_sngZoom = 1
.Left = 1
.Top = 1
End With
SetZoom m_sngZoom
Else
MsgBox "Unable to load image " & Chr(10) & Name,
vbExclamation
End If
End Sub

Does anyone recognize the above?

BTW, it is not Mr. Andy Pope's "PicViewer" or Mr. JE
McGimpsey's "lookuppics" routine.

Regards,

Mike