Question

我正在尝试将我从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

Answer 1

Word提供了宏记录器，它允许记录手动执行的步骤并自动为您生成所需的代码。有关详细信息，请参阅Record or run a macro。因此，它允许探索所需的代码来完成工作。

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

在Outlook消息中重新定义图片

1 个答案: