Excel 重新确定outlook邮件中图片的尺寸

我试图更改从Excel复制到Outlook邮件的单元格范围的大小

单元格范围粘贴为图片。现在如何调整图片的大小？ 我想我需要创建一个对象/一个形状，并将对象设置为单元格范围。我怎么能这么做

这就是我所拥有的：

Dim wEditor As Variant
Dim rng As Range

    Set objOutlook = GetObject(, "Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
        .Display
    End With

    Set wEditor = objOutlook.ActiveInspector.WordEditor

    Set rng = Worksheets("Interface").Range("B38:O117")

    rng.Select
    Selection.CopyPicture

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    wEditor.Application.Selection.Paste

---

Word提供宏记录器，允许记录手动执行的步骤并自动生成所需代码。有关更多信息，请参阅。因此，它允许探索完成工作所需的代码

嵌入的图片存储为隐藏附件。作为一种解决方法，您可以找到相应的附加文件（图像），然后读取字节数组；执行所需的更改