如何通过VBA将Excel中插入的myPicture对象保存到本地磁盘？

你可以直接利用ShapeRange.Export方法将插入的myPicture保存到本地，这是最直接的方式，无需依赖剪贴板或额外组件。

修改后的完整VBA代码 #

'Put in new picture, save, copy to appropriate location

Dim PicPath As String
Dim myPicture As Picture
Dim savePath As String
Dim saveDir As String

PicPath = Worksheets("Transfersheet").Range("PHOTOLD1URL").Value

Set myPicture = Worksheets("Lay-out").Pictures.Insert(PicPath)
    
With myPicture
    .ShapeRange.LockAspectRatio = msoTrue
    .Height = Worksheets("Lay-out").Range("B24:F34").Height
    .Top = Worksheets("Lay-out").Range("B24:F34").Top
    .Left = Worksheets("Lay-out").Range("B24:F34").Left
End With

' 设置本地保存路径，替换为你需要的路径和文件名（支持JPG/PNG/BMP等格式）
savePath = "C:\LocalImages\saved_photo.jpg"

' 提取保存目录，不存在则创建
saveDir = Left(savePath, InStrRev(savePath, "\"))
If Dir(saveDir, vbDirectory) = "" Then
    MkDir saveDir
End If

' 导出图片到本地
myPicture.ShapeRange.Export Filename:=savePath, Filter:=msoFilterJPG

关键说明 #

• 保存格式选择：Filter参数可根据需求替换为以下值：
  • msoFilterJPG：保存为JPG格式
  • msoFilterPNG：保存为PNG格式（支持透明背景）
  • msoFilterBMP：保存为BMP格式
• 路径注意事项：确保savePath是合法的本地磁盘路径，避免使用OneDrive的在线路径；如果路径包含特殊字符或空格，代码中直接处理字符串即可，无需额外添加双引号。
• 可选错误处理：如果需要处理路径权限、图片损坏等异常，可以添加On Error Resume Next或On Error GoTo语句捕获错误。

内容的提问来源于stack exchange，提问作者Vhakazar