When viewing the sheet, the text is blurry and I need to know how I can resize this.. Here is the code... Sub EmailMacro() ' ' CopySheet Macro ' Range("A1:l133").CopyPicture Set OutApp = CreateObject("Outlook.Application") Set outMail = OutApp.CreateItem(0) With outMail '.Introduction = "This is a sample worksheet." .To = email_list .Subject = "Tubing 12-8 Shift Report - " & ActiveSheet.Range("k1").Value '.Body .Display End With Dim wordDoc As Word.Document Set wordDoc = outMail.GetInspector.WordEditor wordDoc.Range.PasteSpecial wdPasteBitmap
Solved by V. J. in 19 mins