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
Comments
Post a Comment