VBA 扫描图片并保存到指定位置

以下是使用 VBA 将扫描图片保存到指定位置的代码：

Sub SaveScanImage()

    Dim scanner As WIA.Device
    Set scanner = CreateObject("WIA.DeviceManager").Items(1)
    
    Dim item As WIA.Item
    Set item = scanner.Items(1)
    
    Dim image As WIA.ImageFile
    Set image = item.TransferFormat('BMP').Save('C:\ScannedImage.bmp')
    
    MsgBox 'Scan image saved at C:\ScannedImage.bmp'
    
End Sub

说明：

代码使用 Windows Image Acquisition（WIA）对象来扫描图片。
第一行代码创建 WIA 设备对象，使用第一个扫描仪。
第三行代码获取设备中的第一个项，这通常是扫描仪的默认选项。
第五行代码使用 TransferFormat 方法将扫描仪的输出格式设置为 BMP。
第六行代码使用 Save 方法将扫描的图像保存到指定的路径。
最后一行代码显示一个消息框，指示图像已成功保存。

**注意：**在运行此代码之前，请确保在计算机上已安装扫描仪并且已正确安装 WIA 驱动程序。