VBA 将工作表选中的区域转换为图片，复制到outlook正文文字后

在VBA中，你可以通过使用Microsoft Word的对象模型将Excel工作表选择的区域转换为图片，并将其插入到Outlook邮件的正文中。以下是一个简单的示例代码：

Sub ConvertToImageAndInsertInEmail()
    Dim ExcelApp As Object
    Dim ExcelSheet As Worksheet
    Dim OlApp As Outlook.Application
    Dim OlMail As MailItem
    Dim rngData As Range
    Dim wdApp As Word.Application
    Dim wdDoc As Document
    Dim img As InlineShape
    
    ' 创建Excel应用对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件并选取范围（假设在当前活动工作表）
    Set ExcelSheet = ActiveSheet
    Set rngData = Selection '<-- 选择你要转为图片的区域
    
    ' 检查是否有数据
    If Not rngData Is Nothing Then
        ' 创建Word应用程序对象
        Set wdApp = New Word.Application
        
        ' 创建一个新的Word文档
        Set wdDoc = wdApp.Documents.Add
        
        ' 将选区复制到Word文档并保存为图片
        rngData.Copy
        With wdDoc.Content.PasteSpecial(wdPastePicture, True)
            .Select
            .WrapFormat = wd WrapAtWdCell
        End With
        wdDoc.SaveAs2 Filename:=CreateTempFileName(), FileFormat:=wdFormatPicture ' 临时文件名函数

        ' 创建Outlook应用程序对象
        Set OlApp = CreateObject("Outlook.Application")
        
        ' 新建邮件
        Set OlMail = OlApp.CreateItem(0) ' olMailItem
        
        ' 获取邮件的Word版编辑器
        With OlMail.GetInspector.WordEditor
            ' 插入图片到邮件正文中
            Set img = .InlineShapes.AddPicture(CreateTempFileName()) ' 使用Word生成的图片路径
            img.Left = .CursorPosition.X ' 调整图片位置
            img.Top = .CursorPosition.Y
        End With
        
        ' 发送邮件
        OlMail.Send
        
        ' 清理对象
        Set img = Nothing
        Set wdDoc = Nothing
        Set wdApp = Nothing
        Set ExcelSheet = Nothing
        Set ExcelApp = Nothing
        Set OlMail = Nothing
        Set OlApp = Nothing
    Else
        MsgBox "No data selected."
    End If
End Sub

Private Function CreateTempFileName() As String
    Dim tempFolder As String
    tempFolder = Environ$("temp") & "\" ' Windows系统下临时文件夹
    CreateTempFileName = tempFolder & "Picture" & Format(Date/10000, "0000") & "_" & Format(Rnd * 10000, "0000") & ".png"
End Function

这段代码首先从Excel工作表选择区域，复制到Word文档中转换为图片，然后保存为一个临时的图片文件。接着，在Outlook邮件的Word编辑器里插入这个图片，并调整其位置。最后发送邮件并清理所有对象。

**注意事项**：
- 需要安装Office的相关运行环境。
- `CreateTempFileName` 函数用于创建一个临时的文件名，确保图片文件能正确插入。