Copy excel cell data to ppt textbox -
i'm new macro. have excel sheet has names in column a. have ppt many slides. need macro in excel take these names, create textbox in each slide , paste there 1 one. like, "a1" value should go slide 1, "a2" value should go slide 2...
can in this.
thanks
for automating excel within ppt or vice versa, visit faq site, http://www.pptfaq.com , search main page references naresh (that'd naresh nichani, wrote , allowed me include series of articles describing how pull data excel or access). study code provided in articles learn how pull data excel.
then start single slide presentation nothing text box on first slide. if need more complex this, ask.
sub makebradburyslides() ' you'd actuall fill array excel sheet ' demonstration purposes: dim adata(1 5) string adata(1) = "something" adata(2) = "wicked" adata(3) = "this" adata(4) = "way" adata(5) = "comes"
dim x long dim osl slide activepresentation x = 1 ubound(adata) set osl = .slides(.slides.count).duplicate(1) osl.shapes(1).textframe.textrange.text = adata(x) next ' leaves blank slide @ beginning, .slides(1).delete end
end sub
if prefer off-the-shelf solution, sell ppt add-in , lot more. there's free, functional demo @ http://www.pptools.com/merge/
Comments
Post a Comment