ho modificat il codice cosi.

Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = true 'apri ed edsegui la presentazione
ppt.Presentations.Open fileName
ppt.ActivePresentation.SlideShowSettings.Run
ppt.Visible = False
l'errore č

Errore di run-time - 2147188160(80048240)