Skip to content

Instantly share code, notes, and snippets.

@marceloszilagyi
Created November 1, 2017 21:55
Show Gist options
  • Save marceloszilagyi/a4f00da7cc4ea78d65edcaac8c5f6c98 to your computer and use it in GitHub Desktop.
Save marceloszilagyi/a4f00da7cc4ea78d65edcaac8c5f6c98 to your computer and use it in GitHub Desktop.
Duplicate Slides
Sub Slide_Creation()
' this sub duplicates the standard slide
Dim myPres As Presentation
Dim mySlide As SlideRange
Dim count As Long
For j = 1 To 49 ' this will create in total 50 slides (one original plus 49 duplicates)
Set myPres = ActivePresentation
' Duplicate the slide at index 'count'.
Set mySlide = myPres.Slides(j).Duplicate
' Switch to the proper slide.
ActiveWindow.View.GotoSlide Index:=j
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment