Powerpoint slide shape deletion

Hi,
I am trying to write a macro which enable me to delete all graphs from the existing powerpoint and paste new set of graphs for monthly presentation.

I could get most of the macro codes from this site and Iam very happy to acknowledge the same. However I am not able to delete all the graph from the slides- I have to loop thru around 50 slides and need to delete all the graphs. I have written macro which deletes almost all graphs from the slides. However the macro does not deleting some of the graphs from the slides. Though all graphs pasted like picture and I am not able to find out the reason it skips some of the graphs. I tried all possible way and coul dnot succeed.

I am giving my Macro below and the one PPT slide -

In this case one graph gets deleted and another one is not. Total shapes count(ShapesCnt) is showing 4 and it coming out of loop after deleting 3rd shape (one graph) - The loop does not gets executed for 4th shape which is the second graph. I'm not sure why the it is coming out of loop after 3rd.

Please Login or Register  to view this content.

Any help in this regard would be highly appreciated. Thanks in advance.

Joe

The looping get confused when you delete references within the loop.

Use a normal FOR NEXT loop working backwards through the shapes collection

Please Login or Register  to view this content.