Copy more excel shapes into powerpoint -

-

i have following code let me copy 

sub pptcopy()  dim pptapp powerpoint.application dim ppt powerpoint.presentation dim slide powerpoint.slide dim shape1 powerpoint.shape  var2 = "c:\documents , settings\aa471714\desktop\presentation2.pot"  set pptapp = createobject("powerpoint.application") set ppt = pptapp.presentations.open(var2) set slide = ppt.slides(2) set shape1 = slide.shapes.paste(1)  pptapp.visible = true  call copyexcel1  shape1  .left = 100 .width = 100  end  end sub

and macro

sub copyexcel1()  dim oexcel excel.application dim owb workbook dim cht excel.chartobject  var2 = "c:\documents , settings\aa471714\desktop\template.xls" set oexcel = new excel.application set owb = oexcel.workbooks.open(var2)  oexcel.visible = true  sheets("sheet5").chartobjects("achmeabanknl").chart.chartarea.copy   end sub

i have 2 issues:

  • i want move excel picture specific place in powerpoint (fe shape 3)
  • i want copy more excel figure (i need copy 2, 1 shape 3 , 1 shape 4).

does know how should edit code below accomplish this?

dear regards,

marc

first, should edit subject of question; doesn't seem have question itself.

to move shape specific position in "stacking" order, use function:

function shapetozorder(osh shape, lposition long)     osh.zorder msosendtoback     until osh.zorderposition = lposition         osh.zorder msobringforward     loop end function

Comments

Post a Comment

Popular posts from this blog

java - WrongTypeOfReturnValue exception thrown when unit testing using mockito -

-
my test list<person> mylist; @test public void testisvalidperson() { mylist = new arraylist<person>(); mylist.add(new person("tom")); when(persondao.get(person)).thenreturn(mylist); when((persondao.get(person)).isempty()).thenreturn(false);//------exception thrown boolean result = service.isvalid("tom"); assertfalse(result); } method tested: public boolean isvalid(string person){ persondao = new persondao(); person personobj = new person(person); return (persondao.get(person).isempty())?false : true; } exception thrown: org.mockito.exceptions.misusing.wrongtypeofreturnvalue: boolean cannot returned get() get() should return list *** if you're unsure why you're getting above error read on. due nature of syntax above problem might occur because: 1. exception *might* occur in wrongly written multi-threaded tests. please refer mockito faq on limitations of concurrency testing. 2. sp
Read more

php - Magento - Deleted Base url key -

-
i working on cleaning url: http://mydomain.com/shop/shop/deals i going through settings in configuration tab in admin panel on magento , change secure , unsecure base urls remove first base url "shop" web page read: http://mydomain.com/shop/deals so changed unsecure base urls mydomain.com/shop mydomain.com , secure 12.345.67.89/shop 12.345.67.89. wrong thing do. i cannot reload page or admin console. how access these files through ftp , change correctly there?? when make changes in admin panel changes made in database not in file. have make changes in database. 1.go database , select core_config_data table under table find web/unsecure/base_url , web/secure/base_url . make changes here. don't forget clear cache in var/cache folder
Read more

android - How to disable Button if EditText is empty ? -

-
i have edittext , button in application. when button clicked,the text entered in edittext added listview. i want disable button if edittext empty.how ? this code button click imagebutton imb=(imagebutton)findviewbyid(r.id.btn_send); imb.setonclicklistener(new onclicklistener() { @override public void onclick(view arg0) { edittext et = (edittext)findviewbyid(r.id.edittext1); string str = et.gettext().tostring(); web1.add(str); toast.maketext(shoutsingleprogram.this, "you entered...."+str, toast.length_short).show(); adapter1.notifydatasetchanged(); et.settext(""); } }); } how can ? edittext1.addtextchangedlistener(new textwatcher() { @override public void ontextchanged(charsequence s, int start, int before, in
Read more