Weird numbering for inserted pictures

[Rick]

I am trying to automate a process that takes a collection of inserted
pictures and cuts and pastes them one to a slide.

If I open a new document and insert 31 pictures, then cut and paste each one
to a separate slide, when I view the macro the pictures numbers run from 4
to 34 instead of 1 to 31 (or 0 to 30).

I tried
i = 34
pictnum = "Picture " & i
ActiveWindow.Selection.SlideRange.Shapes(pictnum).Select
ActiveWindow.Selection.Cut
but it said that the item with the specified name wasn't found.
When I cut and pasted what was picture 34, it is now identified as picture
3. Too confusing for my little brain.

Any idea how I would set up a loop to copy each picture to a separate slide?

FYI, each picture is a map of rainfall for one day of the month, so the
sequence they are pasted is important too.

Thanks
rg

 

[Steve Rindsberg]

This same wheel's been invented a time or two before. It might be a lot less
trouble to buy a ready made one.

BATCH IMPORT images into PowerPoint
http://www.rdpslides.com/pptfaq/FAQ00050.htm

There are even a few free ones there.