Bom dia!!
Você deveria explicar melhor, seria bom mandar um modelo compactado!!
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.visible = True
Set pptPres = pptApp.Presentations.Open(file)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/06/2013 6:19 am