Export Excel Charts as Images using Powerpoint VBA -


i have below code have written export "chart1" excel sheet called "sheet1" new slide in created instance of powerpoint:

sub chartstopowerpoint()      dim pptapp powerpoint.application     dim pptpres powerpoint.presentation     dim pptslide powerpoint.slide     dim pptslidecount integer     dim ws worksheet     dim intchnum integer     dim objch object      'open powerpoint , create new presentation.     set pptapp = new powerpoint.application     set pptpres = pptapp.presentations.add      'set chart , copy new ppt slide     set objchart = worksheets("sheet1").chartobjects("chart 1").chart     objchart.chartarea.copy     set pptslide = pptpres.slides.add(pptslidecount + 1, pplayoutblank)     pptslide.shapes.pastespecial pppastejpg      'format picture size/position.     j = 1 pptslide.shapes.count         pptslide.shapes(j)             if .type = msopicture                 .top = 87                 .left = 33                 .height = 422                 .width = 646             end if         end     next j      pptapp.visible = true      set pptslide = nothing     set pptpres = nothing     set pptapp = nothing  end sub

the reason not using .chart.export method because of poor quality output getting when using excel 2007 sp3.

what looking next save copied image powerpoint .png , close powerpoint presentation without saving changes.

please assist.

never mind figured out:

sub chartstopowerpoint()      dim pptapp powerpoint.application     dim pptpres powerpoint.presentation     dim pptslide powerpoint.slide      'open powerpoint , create invisible new presentation.     set pptapp = new powerpoint.application     set pptpres = pptapp.presentations.add(msofalse)      'set charts , copy them new ppt slide     'i have used every chart object line     'but have 2 charts      set objchart = worksheets("sheet1").chartobjects("chart 1").chart     objchart.chartarea.copy     set pptslide = pptpres.slides.add(1, pplayoutblank)     pptslide.shapes.paste      set objchart = worksheets("sheet1").chartobjects("chart 2").chart     objchart.chartarea.copy     pptslide.shapes.paste      'save images png     path = "c:\users\xyz\desktop\"      j = 1 pptslide.shapes.count         pptslide.shapes(j)         .export path & j & ".png", ppshapeformatpng         end     next j      pptapp.quit      set pptslide = nothing     set pptpres = nothing     set pptapp = nothing  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more