使用VBA将扫描图片保存到指定位置的JPG文件

以下是一个示例VBA代码，可以将扫描图片保存为JPG文件：

Sub SaveScanToJPG()

'设置扫描仪参数
Dim WIA As Object
Set WIA = CreateObject("WIA.CommonDialog")
Dim WIA_ImageFile As Object
Set WIA_ImageFile = WIA.ShowAcquireImage()

'设置保存路径和文件名
Dim FilePath As String
FilePath = "C:\Users\UserName\Pictures\ScanImage.jpg"

'保存为JPG文件
WIA_ImageFile.SaveFile FilePath, "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"

'提示保存成功
MsgBox "扫描图片已保存为JPG文件：" & FilePath, vbInformation, "保存成功"

End Sub

请将“C:\Users\UserName\Pictures\ScanImage.jpg”替换为您要保存的文件路径和文件名。此代码将使用WIA（Windows Image Acquisition）对象来扫描图片并将其保存为JPG文件。保存文件的格式由GUID “{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}”指定为JPG格式。在保存成功后，将弹出一个消息框来提示用户