Picture Blurry

[Moses_BAM]

Hello, I could use some help with my code below. every time the email is generated the image is completely blurry nothing is legible.


Application.ScreenUpdating = False

Dim OLapp As Outlook.Application
Dim OLEmail As Outlook.MailItem
Dim OLInsp As Outlook.Inspector
Dim wdDoc As Word.Document

Set OLapp = New Outlook.Application
Set OLEmail = OLapp.CreateItem(olMailItem)

With OLEmail
.BodyFormat = olFormatHTML
.Display

.To = ""
.Subject = Sheets("Sheet7").Range("T10").Value
Set OLInsp = .GetInspector
Set wdDoc = OLInsp.WordEditor

Sheet3.Activate
Application.CopyObjectsWithCells = False

Range("A4", "L4").CurrentRegion.CopyPicture Appearance:=xlScreen, Format:=xlPicture

wdDoc.Range.Paste

Application.CutCopyMode = False

Dim shp As Object
For Each shp In wdDoc.InlineShapes
shp.ScaleHeight = 49
shp.ScaleWidth = 49

Next
End With
End Sub

[mdmackillop]

If you post a sample workbook, we can see what we're dealing with.

[Moses_BAM]

19726

This is what it looks like when it paste on the email body.

[Paul_Hossler]

Try xlPrinter instead of xlScreen and see if it helps

[Moses_BAM]

Paul,

Thanks for the suggestion.
I have tried that as well with the same result.