CreateThumb_IrfanView

Creates a thumb of an image using IrfanView
Thumbnail filename will have _th at end of filename
Having i_view32.exe file (attached) in a subfolder next to workbook

Sub CreateThumb_IrfanView(ImageFile, Optional Wi=200, Optional He=200, Optional IVFol = "Resources")
 ThumImg = "MyPix" & i & "_th." & Right(ImageFile, 3)
 Cmd1 = FixPath(FixPath() & IVFol) & "i_view32.exe "
 Cmd2 = DataFol & ImageFile
 Cmd3 = " /resize=(" & Wi & "," & He & ") /aspectratio /convert="
 Cmd4 = FixPath(GetPapa(ImageFile)) & ThumImg
 Shell Cmd1 & Cmd2 & Cmd3 & Cmd4
 DoEvents
End sub

ImageFile, Optional Wi, Optional He, Optional IVFol

Views 678 Downloads 312

'FixPath', 'GetPapa', 'i_view32.exe', 'irfanview', 'image', 'picture', 'thumbnail', 'thumbnails', 'iview', 'irfan view', 'reduce', 'enlarge', 'width', 'height', 'replace', 'change', 'substititue'

ANmarAmdeen
333
Attachments
Multimedia VBA-Excel
Revisions

v3.0