如何将一系列单元格粘贴为Excel中消息正文的图像

有效的数据传输至关重要，有时通过Excel工作表的屏幕截图可能会更容易实现。您可以通过将一组单元格直接转换为图像，并将其添加到文档或电子邮件中，使其更加美观和易于用户使用。在本课程中，我们将为您介绍将一组单元格转换为图像并将其复制到所选消息正文的每个步骤。让我们开始探索这个有用的技巧，以提高您的Excel数据共享能力！

将一系列单元格粘贴到消息正文中作为图像

在此我们将首先创建一个VBA模块，然后选择单元格的范围，最后发送消息。因此，让我们看一下如何将一系列单元格粘贴到Excel中消息正文的方法。

步骤 1

考虑一个拥有所需数据的Excel表格。

首先，右键单击工作表名称并选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码

步骤 2

然后点击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制

代码

Sub sendMail()
   Dim TempFilePath As String
   Dim xOutApp As Object
   Dim xOutMail As Object
   Dim xHTMLBody As String
   Dim xRg As Range
   On Error Resume Next
   Set xRg = Application.InputBox("Please select the data range:", "Paste Range Images", Selection.Address, , , , , 8)
   If xRg Is Nothing Then Exit Sub
   With Application
      .Calculation = xlManual
      .ScreenUpdating = False
      .EnableEvents = False
   End With
   Set xOutApp = CreateObject("outlook.application")
   Set xOutMail = xOutApp.CreateItem(olMailItem)
   Call createJpg(ActiveSheet.Name, xRg.Address, "DashboardFile")
   TempFilePath = Environ("temp")&""
   xHTMLBody = "<span LANG=EN>" _
     &"<p class=style2><span LANG=EN><font FACE=Calibri SIZE=3>" _
     &"Hello, this is the data range that you want:<br> " _
     &"<br>" _
     &"<img src='//cdn.extendoffice.com/cid:DashboardFile.jpg'>" _
     &"<br>Best Regards!</font></span>"
   With xOutMail
      .Subject = ""
      .HTMLBody = xHTMLBody
      .Attachments.Add TempFilePath&"DashboardFile.jpg", olByValue
      .To = " "
      .Cc = " "
      .Display
   End With
End Sub
Sub createJpg(SheetName As String, xRgAddrss As String, nameFile As String)
   Dim xRgPic As Range
   Dim xShape As Shape
   ThisWorkbook.Activate
   Worksheets(SheetName).Activate
   Set xRgPic = ThisWorkbook.Worksheets(SheetName).Range(xRgAddrss)
   xRgPic.CopyPicture
   With ThisWorkbook.Worksheets(SheetName).ChartObjects.Add(xRgPic.Left, xRgPic.Top, xRgPic.Width, xRgPic.Height)
      .Activate
      For Each xShape In ActiveSheet.Shapes
         xShape.Line.Visible = msoFalse
      Next
      .Chart.Paste
      .Chart.Export Environ("temp") & "" & nameFile & ".jpg", "JPG"
   End With
   Worksheets(SheetName).ChartObjects(Worksheets(SheetName).ChartObjects.Count).Delete
Set xRgPic = Nothing
End Sub

第3步

然后点击F5运行模块。然后选择要复制的单元格范围，然后点击确定。

F5 > 运行 > 选择单元格 > 确定

第4步

然后在Outlook中点击发送以完成任务。

结论

在本教程中，我们使用了一个简单的示例来演示如何将Excel中的一系列单元格作为图像粘贴到邮件正文中，以突出显示特定的数据集。