excel - Copy range as image and paste into Outlook (results small/blurry) -


i'm trying copy range of cells picture, put picture in email, send email excel macro.

i'm able of this, image comes out smaller/blurrier original. i've tried sorts of copy/paste methods results same.

when copy picture manually copy picture (as shown on screen) without macro, paste outlook using ctrl+v, image looks fine.

any idea why happening?

here's code:

sub sendmail()  dim aoutlook object dim aemail object dim rngeaddresses range, rngecell range, strrecipients string dim rngedata 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 word.document set worddoc = aemail.getinspector.wordeditor  'paste picture aemail.display worddoc.range.paste  set rngeaddresses = activesheet.range("ak2:ak23")  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 

try rngedata.copy worddoc.range.pasteandformat wdpasteenhancedmetafile

this should give quality wdpastedatatype, similar ctrl+v

wdpastedatatype enumeration (word)


Comments

Popular posts from this blog

mysql - Dreamhost PyCharm Django Python 3 Launching a Site -

java - Sending SMS with SMSLib and Web Services -

java - How to resolve The method toString() in the type Object is not applicable for the arguments (InputStream) -