Skip to content

Instantly share code, notes, and snippets.

View karenl7's full-sized avatar

Karen Leung karenl7

25 followers · 1 following
View GitHub Profile
@karenl7
karenl7 / gist:1fcebac683f4457cd07e3bdfecafd794
Created February 25, 2020 06:25 — forked from pcmoritz/gist:4b0e1be7f2dfcc4e51e2ace50426f67d
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)