Skip to content

Instantly share code, notes, and snippets.

View bosheng0701's full-sized avatar

bosheng0701

View GitHub Profile
@bosheng0701
bosheng0701 / gist:cce164914b5d5562b7d15095ca655bde
Created February 14, 2022 07:26 — 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)