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.
11.jpg
Error: (For example 3 shapes. 3 slide created)
22.jpg
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
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