Skip to content

Instantly share code, notes, and snippets.

View PowerPointProgressBar.vb
'https://www.howtogeek.com/709523/how-to-create-a-progress-bar-in-microsoft-powerpoint/
Sub ProgressBar()
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("PB").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 2, _
X * .PageSetup.SlideWidth / .Slides.Count, 2)
s.Fill.ForeColor.RGB = RGB(135, 206, 235)
@blueboxes
blueboxes / JS13KGamesResources.md
Last active Aug 13, 2018
This is a list of useful links, resources and tutorials for creating an JS13K Games entry. The items are in no particular order. Please feel free to suggest additions or edits to the list.
View gist:58ef0dbbf126d8b7fca1