1 Attachment(s)

Placing shapes on different slides

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.

Attachment 28598

I think
should be change to something like
Code:

`Set oshp = slide.Shapes.Paste`

or
Code:

`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.