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

Code:

---

slide.Shapes.Paste

---

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.

Quote:

---

Originally Posted by 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.

Attachment 28598

I think

Code:

---

slide.Shapes.Paste

---

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.

---

You are a lot more likely to get an accurate answer if you include your slide with 50 shapes.

Thank you John. Unfortunately I can't.
I managed to improve it. However now I get an Integer error. Before I use macro I have to have the specific number of slides.

Attachment 28600


http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=

Error: (For example 3 shapes. 3 slide created)

Attachment 28599
http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=

Quote:

---

Originally Posted by YorickG

Thank you John. Unfortunately I can't.
I managed to improve it. However now I get an Integer error. Before I use macro I have to have the specific number of slides.

Attachment 28600


http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=

Error: (For example 3 shapes. 3 slide created)

Attachment 28599
http://www.vbaexpress.com/forum/imag...AASUVORK5CYII=

---

Without seeing the slide we are likely to be going round in circles (and I wont be!)

A generic way to paste each shape onto a new slide is below. You would want to make sure thet the slide with the shapes has a blank layout (no placeholders) and is selected

Code:

---


Sub move_shapes()
Dim osld As Slide
Dim oNewsld As Slide
Dim L As Long
'select slide with shapes
Set osld = ActiveWindow.Selection.SlideRange(1)
osld.Shapes.Range.Select


For L = 1 To ActiveWindow.Selection.ShapeRange.Count
Set oNewsld = ActivePresentation.Slides.AddSlide(osld.SlideIndex + L, osld.CustomLayout)
ActiveWindow.Selection.ShapeRange(L).Copy
oNewsld.Shapes.Paste
Next L
End Sub

---