Chen Shouyuan sunrset

s student

pcmoritz / gist:4b0e1be7f2dfcc4e51e2ace50426f67d

Created May 20, 2018 19:04

Powerpoint create slides for animations while retaining slide numbers

	Option Explicit

	Sub AddElements()
	Dim shp As Shape

	Dim i As Integer, n As Integer
	n = ActivePresentation.Slides.Count
	For i = 1 To n
	Dim s As Slide
	Set s = ActivePresentation.Slides(i)