FrmLarge v3

Shows an image after clicking on its thumbnail, like in web applications
Can use Windows PhotoViewer (From Win7)
Or its own window "frmLarge"
Update 2021-01-06: Have FrmLarge v3 including option to use irfanview (i_view32.exe) get it from https://www.irfanview.com/


Public

Tested

My Own Work
Can use Windows PhotoViewer (From Win7, that is also available in Win8 and Win10)
Or irfanview (i_view32.exe), needs to have i_view32.exe to be in Resfolder that sits next to Macro workbook.
Or its own window "frmLarge"

Decide on width and height, and which viewer to use in calling "EnLarge" function
UseViewer = 1 to use Windows7 viewer
UseViewer = 2 to use i_view32.exe
UseViewer = 0 to use internal frmLarge


Syntax:
EnLarge FullPath, OrSheetImageControl, LargeTitle, UseViewer, ResFolder, MyWidth, MyHeight

EnLarge(Optional FullPath = "", Optional OrSheetImageControl = "Sheet1!Image1", Optional LargeTitle = "LargerImage", Optional UseViewer = 0, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450)

' Either Fullpath, or image control in certain sheet
'    Priority is for Fullpath, if it is missing, then will try the image control

Optional FullPath = "", Optional OrSheetImageControl = "Sheet1!Image1", Optional LargeTitle = "LargerImage", Optional UseViewer = 0, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450

frmLarge.EnLarge "C:\Folder\Image.jpg", , "Random image", 1, , 1200, 800
Or
frmLarge.EnLarge "C:\Folder\Image.jpg", , "Title of screen", 2, "Tools" , 1200, 800
Or
frmLarge.EnLarge ,"Sheet4!ImgControl33", "Title of screen", 0, , 1200, 800

Views 4352 Downloads 1626

VBA-Excel UI
ANmarAmdeen
813
Revisions

v3.0