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


Public

Tested

My Own 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 2073 Downloads 510

VBA Multimedia
ANmarAmdeen
757
Attachments
Revisions

v2.0