复制范围作为图像并粘贴到Outlook（结果小/模糊）
我试图复制一系列的单元格作为图片，把这个图片放在一个电子邮件，然后发送一个Excelmacros的电子邮件。
我能够做到这一切，但是图像比原来的图像更小/更模糊。 我已经尝试了各种复制/粘贴方法，但结果是一样的。
当我手动复制图片复制为图片（如屏幕所示）没有macros，然后粘贴到Outlook使用CTRL + V，图像看起来不错。
任何想法为什么发生这种情况？
代码如下：
Sub SendMail() Dim aOutlook As Object Dim aEmail As Object Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String Dim rngeData As Range Set aOutlook = CreateObject("Outlook.Application") Set aEmail = aOutlook.CreateItem(0) Set rngeData = Worksheets("Promo Sync").Range("A5:Y86") 'Copy Range rngeData.CopyPicture Appearance:=xlScreen, Format:=xlPicture Dim wordDoc As Word.Document Set wordDoc = aEmail.GetInspector.WordEditor 'Paste picture aEmail.Display wordDoc.Range.Paste Set rngeAddresses = ActiveSheet.Range("AK2:AK23") For Each rngeCell In rngeAddresses.Cells strRecipients = strRecipients & ";" & rngeCell.Value Next 'Set Subject aEmail.Subject = "Promo Sync " & Now() 'Set Recipient aEmail.To = strRecipients 'Send Mail aEmail.Send End Sub 尝试rngeData.Copy然后wordDoc.Range.PasteAndFormat wdPasteEnhancedMetafile
这应该给你高质量的wdPasteDataType ，类似于Ctrl + V
WdPasteDataType枚举（Word）