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 804 Downloads 285

VBA Multimedia
ANmarAmdeen
655
Attachments
Revisions

v2.0