FOR lnSlide = 1 TO oPPT.ActivePresentation.Slides.Count FOR lnShape = 1 TO oPPT.ActivePresentation.Slides(lnSlide).Shapes.Count IF oPPT.ActivePresentation.Slides(lnSlide).Shapes(lnShape).Type = 13 *-- picture found MessageBox("Picture found on slide "+TRANSFORM(lnSlide)+": Shape "+TRANSFORM(lnShape)) ENDIF ENDFOR ENDFORfinds pictures, but under PowerPoint XP, the pictures are seen as Placeholder types (14) rather than pictures (13)