Quote Originally Posted by YorickG View Post
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.
You are a lot more likely to get an accurate answer if you include your slide with 50 shapes.