Placing shapes on different slides

[YorickG]

Hello,

I wanted to add a quick VBA automation as I have to move multiple shapes to dedicated slides. Unfortunately, I can't figure out how to do it (I'm not familiar with arrays). For example: I have fifty shapes on a slide. Each shape should be 'cut' and pasted on a newly added slide. One by one. Below I have attached a code snippet.

code.jpg

I think

slide.Shapes.Paste

should be change to something like

Set oshp = slide.Shapes.Paste

or

ActivePresentation.Slides(oshp.Parent.SlideIndex + 1).Shapes.Paste

What I end up with are multiple empty slides and shapes moved from slide 1 to the last one.

I really appreciate any help.
Thank you in advance.