如何使用VBA Excel调整作为图片粘贴到电子邮件正文上的单元格范围的大小

Sub InsertPictureInEmailBody()
    Dim rng As Range
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim wordEditor As Object
    Dim newMail As Object

    ' 设置要粘贴为图片的单元格范围
    Set rng = Range("A1:C3")

    ' 将选定的范围复制到剪贴板
    rng.Copy

    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    ' 创建新邮件
    Set outlookMail = outlookApp.CreateItem(0)
    ' 获取新邮件的Inspector对象
    Set newMail = outlookMail.GetInspector
    ' 获取新邮件的Word编辑器对象
    Set wordEditor = newMail.WordEditor

    ' 将图片粘贴为图片形式到电子邮件的正文中
    wordEditor.Range.PasteSpecial

    ' 调整图片大小
    With wordEditor.Application.ActiveDocument.Shapes(wordEditor.Application.ActiveDocument.Shapes.Count)
        ' 设置图片的高度和宽度，可以根据实际需要进行修改
        .Height = 200
        .Width = 200
    End With

    ' 发送邮件
    outlookMail.Display

    ' 清空剪贴板
    Application.CutCopyMode = False

    ' 释放对象
    Set rng = Nothing
    Set outlookMail = Nothing
    Set outlookApp = Nothing
    Set wordEditor = Nothing
    Set newMail = Nothing
End Sub