Code:
Function WiaSaveAsJpg(LoadFile1 As String, SaveJpgFile As String, Optional JpgQuality As Long = 85, Optional ErrInfo As String) As Boolean
On Error GoTo Err1
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile LoadFile1
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
IP.Filters(1).Properties("Quality").Value = JpgQuality
Set Img = IP.Apply(Img)
Img.SaveFile SaveJpgFile
WiaSaveAsJpg = True
Exit Function
Err1:
ErrInfo = Err.Number & "," & Err.Description
End Function