vba - Error converting Excel range to Jpeg and inserting into Outlook -

-

i have code convert range in excel 2010 jpeg , insert outlook 2010. code converts range chart , creates jpeg. jpeg corrupted , show chart in background behind range attempting show. here example:

jpeg error

here code this:

sub mail_as_pic()  dim tempfilepath string dim outapp outlook.application dim outmail outlook.mailitem  on error resume next  kill tempfilepath & "quota.jpg"  dim sh worksheet set sh = sheets("strategic")      'create new microsoft outlook session     set outapp = createobject("outlook.application")     'create new message     set outmail = outapp.createitem(olmailitem)      outmail         .sentonbehalfofname = "me@me.com"         .display         .subject = "strategic sales"         .to = "me@me.com"         call createjpg("strategic", "a1:f11", "quota")         'this runs macro below , creates jpeg         tempfilepath = environ$("temp") & "\"         .attachments.add tempfilepath & "quota.jpg", olbyvalue, 0         'we attached embedded image position @ 0 (makes attachment hidden)         '.attachments.add          'then add html <img src=''> link image         'note can customize width , height - not mandatory          '<br><br> return or line space         .htmlbody = "<br>" _             & "attached please find strategic sales month." _             & "<br><br>" _             & "please reach out me questions." _             & "<br><br>" _             & "<img src='cid:quota.jpg'" & "width=width height=heigth><br><br>" _             & "<br><br>" _             & "thank you," _             & .htmlbody          .display         '.send     end  kill tempfilepath & "quota.jpg"  set sh = nothing set outapp = nothing set outmail = nothing   end sub  sub createjpg(namesheet string, namerange string, namefile string) thisworkbook.activate worksheets(namesheet).activate set plage = nothing set plage = thisworkbook.worksheets(namesheet).range(namerange) plage.copypicture thisworkbook.worksheets(namesheet).chartobjects.add(plage.left, plage.top, plage.width, plage.height)     .activate     .chart.paste     .chart.export environ$("temp") & "\" & namefile & ".jpg", "jpg" end     worksheets(namesheet).chartobjects(worksheets(namesheet).chartobjects.count).delete  set plage = nothing  end sub

i using code in several workbook, 1 of creates jpeg 2 separate ranges. 1 of conversions works every time, other creates , error every time. both converting data pivot table.

i've been trying solve time no luck. appreciated.

the issue created when trying convert more 1 table picture. solution create each table own jpeg, , insert each jpeg email.


Comments

Post a Comment

Popular posts from this blog

c++ - No viable overloaded operator for references a map -

-
i trying use map can make tag names reference number. when try , use it, in code error (6 in total every time reference map): src/main.cpp:25:45: error: no viable overloaded operator[] type 'std::map<std::string, std::string>' const char* idcs = node.child_value(tagmap[3]); this code: #include "pugi/pugixml.hpp" #include <iostream> #include <string> #include <map> int main() { pugi::xml_document doca, docb; std::map<std::string, pugi::xml_node> mapa, mapb; std::map<std::string, std::string> tagmap {{"1", "data"}, {"2", "entry"}, {"3", "id"}, {"4", "content"}}; if (!doca.load_file("a.xml") || !docb.load_file("b.xml")) { std::cout << "can't find input files"; return 1; } (auto& node: doca.child(tagmap[1]).children(tagmap[2])) { co
Read more

java - Custom OutputStreamAppender not run: LOGBACK: No context given for <MYAPPENDER> -

-
i wish write custom appender on basis of outputstreamappender . wrote following class package tests; import java.io.ioexception; import java.io.outputstream; import ch.qos.logback.core.outputstreamappender; public class myappender<e> extends outputstreamappender<e> { public myappender() { system.out.println("myappender created"); setoutputstream(new outputstream() { @override public void write(int b) throws ioexception { throw new unsupportedoperationexception(); } }); } } then wrote following runner: package tests; import org.slf4j.loggerfactory; import ch.qos.logback.classic.logger; public class runner { private static final logger log = (logger) loggerfactory.getlogger(runner.class); public static void main(string[] args) { //log.addappender(new myappender<iloggingevent>()); log.info("hello world"); } } finall
Read more

java - Cannot secure connection using TLS -

-
i'm trying establish secure socket connection between java client applet (built jdk 1.7.0_75-b13) , vc++ server application. as test vehicle, used vc++ client/server sample found in msdn forums, modified use schannel , able establish socket using cipher suite tls_rsa_with_aes_128_cbc_sha. works of tls 1.0/1.1/1.2. when try opening socket java applet same server application, connection rejected server reporting following: tls 1.0 acceptsecuritycontext failed: 0x80090327 tls 1.1 acceptsecuritycontext failed: 0x80090331 tls 1.2 acceptsecuritycontext failed: 0x80090331 this java code used create socket: debugprint("setting secure connection"); sslsocketfactory sslsocketfactory = (sslsocketfactory) sslsocketfactory.getdefault(); sslsocket sslsocket = (sslsocket) sslsocketfactory.createsocket("127.0.0.1", socketnumber); debugprint("starting handshake"); sslsocket.settcpnodelay(true); sslsocket.setsolinger(false, 0); sslsocket.s
Read more