将Excel区域图片粘贴至Outlook邮件时出现Error 424对象缺失错误

核心错误原因 #

你遇到的Error 424，根源是**Range.Paste方法的返回值不是对象**，但你用了Set语句试图把它赋值给对象变量img。

Paste方法执行粘贴操作后，只会返回一个布尔值（True表示粘贴成功，False表示失败），而不是可赋值给img的图片对象。这就是为什么邮件里能正常显示图片（粘贴操作本身完成了），但代码会触发对象缺失错误——因为Set只能给对象类型变量赋值，布尔值不符合要求。

修正方案 #

要获取粘贴后的图片对象，需要换用能返回对象的方法，或者先完成粘贴再查找刚插入的图片：

方案1：使用PasteSpecial直接获取对象

PasteSpecial可以指定粘贴格式，同时返回对应的内嵌图片对象（可直接用常量值1对应位图格式，无需额外引用库）：

' 替换原粘贴语句
Set img = outlookMail.GetInspector.WordEditor.Range.PasteSpecial(DataType:=1)

img.Width = Application.InchesToPoints(100)
img.Height = Application.InchesToPoints(50)

方案2：粘贴后查找最新插入的图片

如果不想用PasteSpecial，可以先执行粘贴，再通过编辑器的InlineShapes集合获取最后插入的图片：

' 先执行粘贴（不需要赋值）
outlookMail.GetInspector.WordEditor.Range.Paste

' 获取最后一个内嵌图片（若图片是浮动式则换用Shapes集合）
Set img = outlookMail.GetInspector.WordEditor.InlineShapes(outlookMail.GetInspector.WordEditor.InlineShapes.Count)

img.Width = Application.InchesToPoints(100)
img.Height = Application.InchesToPoints(50)

额外注意事项 #

1. 邮件显示后最好加短暂延迟，确保编辑器完全加载，避免因界面未就绪导致的异常：

With outlookMail
    .Subject = "IC Diff " & Range("A2") & " " & Month(Now) & "/" & Right(Year(Now), 2)
    .body = ""
    .Display
    ' 等待1秒让编辑器就绪
    Application.Wait Now + TimeValue("00:00:01")
End With

2. 可以把img的声明更具体，比如Dim img As Word.InlineShape，减少类型模糊带来的问题（需提前引用Microsoft Word对象库）。

内容的提问来源于stack exchange，提问作者Álvaro Díaz Méndez