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 格式。在保存成功后，将弹出一个消息框来提示用户。