Duplicate a slide 20 times

For my revision documents I often create a master slide and duplicate it lots of times. The following code will duplicate Slide 1 twenty times and when I use it it’s easy to step inside and change Slide 1 to whichever slide I want to duplicate, and change the 20 to 100 if I need to.

Dim Words 
For Words = 20 To 1 Step -1 
Set newSlide = ActivePresentation.Slides(1).Duplicate

Next Words

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: