You can delete the selected slides
ActiveWindow.Selection.SlideRange.Delete
However it would be quicker just to pressthe DELETE key so I guess this isn;t what you need!
To delete a range of slides you can use
ActivePresentation.Slides.Range(Array(2, 3, 5)).Delete
If the slides to delete are contiguous
Dim i As Integer
'to delete say 3 to 10
For i = 10 To 3 Step -1'always loop backwards when deleting
ActivePresentation.Slides(i).Delete
Next i
Last edited by JohnWilson; 04-06-2013 at 06:56 AM.
|