Routine to automatically pull images and put in placeholders in powerpoint
So I had this issue the other night where a routine I have been using and tweaking over the past few years stopped working. It is really relatively simple- about 150 lines of code but the core of the routine that put the images into the slides stopped working Monday. I am using office 365 x64 bit. Figured it out how to get it working again - apparently there is a glitch in VBA - and an old approach started working again and by adding 0.1 second waits, the routine is working (so very odd). Being x64 office may be part of the issue, but it was working at the beginning of the year. Here is the heart o the code that actually inserts the images: For Each ObjFile In ObjFolder.Files If ObjFile.Name Like "*.png" Then Set pre = Application.ActivePresentation ''This sets the slide type: Set ObjSlide = pre.Slides.Add(Index:=pre.Slides.Count + 1, Layout:=ppLayoutChart) ObjSlide.Shapes(1).TextFrame.TextRange