versuch mal das  debug.print  ActivePresentation.Slides(2).Shapes.Placeholders.count  

man kann nur auf ein Objekt zugreifen was auch existiert.  du rufst ein Objekt aus einer Liste auf, welche Teil einer weiteren Liste ist. Das klappt wohl nicht. Dann nimm ein bestimmtes Element der Liste z.b. Slides(2) und grenze somit die Auswahl ein.