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

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 - UML - How would you draw a try catch in a sequence diagram? -

-
Image
is there standard way of drawing try catch sequence diagrams? i've made attempt based on this feel end result doesn't feel right. code diagram based around: public static void save () { try { filehandle filehandle = gdx.files.external(file); filehandle.writestring(boolean.tostring(constantshandler.soundenabled)+"\n", false); (int = 0; < 5; i++) { filehandle.writestring(integer.tostring(constantshandler.highscores[i])+"\n", true); } } catch (throwable e) { } } my attempt note: know still need add loop. that's ok. fragments meant show conditional control flow in sequence diagram. superstructures puts limitations on use of fragments (see pp. 467 of ss2.1.1). should use critical region try part above. , option catch . however, keep telling can take quite freedom in using uml. it's language , such changes in life time. long reader ge...
Read more

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