Copy all tables and charts from all sheets of Excel to PowerPoint -

-

i need code snippet copy charts , tables excel file sheets powerpoint file using macro (vba) in excel.

below code copies charts. want copy tables , charts , images. 

sub pushchartstoppt()  'set reference 'microsoft powerpoint 12.0 object library'  'in vbe via tools > references...  '  dim ppt powerpoint.application  dim pptpres powerpoint.presentation  dim pptsld powerpoint.slide  dim pptcl powerpoint.customlayout  dim pptshp powerpoint.shape   dim cht chart  dim ws worksheet  dim long   'get powerpoint application object:  set ppt = createobject("powerpoint.application")  ppt.visible = msotrue  set pptpres = ppt.presentations.add   'get custom layout:  each pptcl in pptpres.slidemaster.customlayouts      if pptcl.name = "title , content" exit  next pptcl   'copy charts in chart sheets:  each cht in activeworkbook.charts      set pptsld = pptpres.slides.addslide(pptpres.slides.count + 1, pptcl)      pptsld.select      each pptshp in pptsld.shapes.placeholders          if pptshp.placeholderformat.type = ppplaceholderobject exit      next pptshp      if pptshp nothing stop       cht.chartarea.copy      ppt.activate      pptshp.select      ppt.windows(1).view.paste  next cht   'copy charts embedded in each worksheet:  each ws in activeworkbook.worksheets      = 1 ws.chartobjects.count          set pptsld = pptpres.slides.addslide(pptpres.slides.count + 1, pptcl)          pptsld.select           each pptshp in pptsld.shapes.placeholders              if pptshp.placeholderformat.type = ppplaceholderobject exit          next pptshp          set cht = ws.chartobjects(i).chart          cht.chartarea.copy          ppt.activate          pptshp.select          ppt.windows(1).view.paste      next    next ws  end sub

for pictures try using shapes how select pictures

dim pic shape each pic in activesheet.shapes     if pic.type = msopicture         pic.select         'do image     end if next pic

Comments

Post a Comment

Popular posts from this blog

javascript - Laravel datatable invalid JSON response -

-
everything work fine on code below fetch user logs: js: <script> $(document).ready(function () { var table =$('#systemlogs').datatable({ responsive: true, processing: true, serverside: true, "language": { "url": "/datatables/media/plug-in/persian.json" }, ajax: '{!! url('/admin/systemlogs/data/systemlogsdatatable') !!}', columns: [ { data: 'name', name: 'name' }, { data: 'message_text', name: 'message_text' }, { data: 'remote_addr', name: 'remote_addr' }, { data: 'log_created_at', name: 'management_logs.created_at' }, { data: 'log_updated_at', name: 'management_logs.updated_at' }, ] }); }); </script> routes: route::get('/systemlogs/data/systemlogsdatatable','systemlogscontrolle...
Read more

java - Exception in thread "main" org.springframework.context.ApplicationContextException: Unable to start embedded container; -

-
i getting error when run spring application: exception in thread "main" org.springframework.context.applicationcontextexception: unable start embedded container; nested exception org.springframework.context.applicationcontextexception: unable start embeddedwebapplicationcontext due missing embeddedservletcontainerfactory bean. @ org.springframework.boot.context.embedded.embeddedwebapplicationcontext.onrefresh(embeddedwebapplicationcontext.java:124) @ org.springframework.context.support.abstractapplicationcontext.refresh(abstractapplicationcontext.java:476) @ org.springframework.boot.context.embedded.embeddedwebapplicationcontext.refresh(embeddedwebapplicationcontext.java:109) @ org.springframework.boot.springapplication.refresh(springapplication.java:691) @ org.springframework.boot.springapplication.run(springapplication.java:320) @ org.springframework.boot.springapplication.run(springapplication.java:952) @ org.springframework.boot.springa...
Read more

sql server 2008 - My Sql Code Get An Error Of Msg 245, Level 16, State 1, Line 1 Conversion failed when converting the varchar value '8:45 AM' to data type int -

-
msg 245, level 16, state 1, line 1 conversion failed when converting varchar value '8:45 am' data type int. script declare @specimenid bigint = 0, @script varchar(max); declare @starttime int = (select convert(int,substring(start_time,0,charindex(':', start_time)) - 12) appt appt._id=112601) --select @starttime set @script = 'select distinct ptlast_name + '', '' + pt.first_name patient_name, dbo.formatdate(pt.dob,''mm/dd/yyyy'') dob, (convert(varchar, (datediff(yy, dob, appt_date) - case when (month(dob) > month(appt_date)) or (month(dob) = month(appt_date) , day(dob) > day(appt_date)) 1 else 0 end)) + ''/'' + convert(varchar, (datediff(m, dateadd(yy, (datediff(yy, dob, appt_date) - case when (month(dob) > month(appt_date)) or (month(dob) = month(appt_date) , day(dob) > day(appt_date)) 1 else 0 end), d...
Read more