Powerpoint macro to reveal
I think that everyone knows PowerPoint. However, reveal.js is a simple js+css + html to make presentation. I like it – and it is easy to put on any presentation.
Remembering my VB roots , I have created a simple PowerPoint macro to save presentation as reveal. It takes advantage that PowerPoint could save the slides as JPG.
Some sample code is here:
‘where to save the reveal
Dim rootFolder As String
rootFolder = "D:\"
Dim sld As slide, shp As Shape
Dim textSlide As String
Dim p As Presentation
Set p = ActivePresentation
Dim name As String
name = p.name
If (InStr(1, p.name, ".") > 1) Then
name = Mid(name, 1, InStr(1, p.name, ".") – 1)
Dim NameFolder As String
NameFolder = rootFolder + name + "_reveal"
ActivePresentation.SaveCopyAs NameFolder, ppSaveAsJPG
Dim Sections As String, i As Integer, max As Integer
max = p.Slides.Count
For i = 1 To max
Sections = Sections + vbCrLf
Sections = Sections + "<section>"
Sections = Sections + "<img src=’Slide" & i & ".jpg’>"
Sections = Sections + "</section>"
Dim str As String
str = OriginalReveal()
str = Replace(str, "#PPTName#", p.name)
str = Replace(str, "#section#", Sections)
Dim fileName As String, textRow As String, fileNo As Integer
fileName = NameFolder + "\index.html"
fileNo = FreeFile ‘Get first free file number
Open fileName For Output As #fileNo
Print #fileNo, str
The full source code is on https://github.com/ignatandrei/ppt2reveal/tree/master
Press ALT+F11 , paste code and enjoy!