Created
November 1, 2017 21:55
-
-
Save marceloszilagyi/a4f00da7cc4ea78d65edcaac8c5f6c98 to your computer and use it in GitHub Desktop.
Duplicate Slides
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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