ImageOpen_IfranView

Opens an image using Irfanview (i_view32.exe attached which also inscludes a copy of the sub).
This can also be found in frmLarge_v2

CodeFunctionName
What is this?

Public

Tested

Original Work
Sub ImageOpen_IfranView(ImageFullPath, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450)
' Opens an image using irfanview, i_view32.exe
' Expected to have i_view32.exe in "Res" folder next to workbook having macro
If FullPath > "" Then
' Attached i_view32.exe in Res folder
Shell """" & FixPath(FixPath() & Resfolder) & "i_view32.exe"" " & _
"""" & FullPath & """ /display=(,," & MyWidth & "," & MyHeight & ",0,0,0) ", vbNormalFocus
Else
msgbox "Not supported yet!", vbcritical
End If
End Sub

ImageFullPath, Optional ResFolder = "Res", Optional MyWidth = 750, Optional MyHeight = 450

ImageOpen_IfranView "C:\Folder\Img.png", , 750, 450
ImageOpen_IfranView "C:\Fol\image.jpg", "Tools"

Views 3,041

Downloads 751

CodeID
DB ID