PowerPoint 2010 Save As HTML

There's no way to do this from the GUI in version 2010.

It can still be done in code but beware you may lose some of the new features.

NOTE Neither method here will work in version 2013

The code

Sub save_html()
Dim strSN As String
strSN = InputBox("Type the name to save as - do not add .html")
ActivePresentation.SaveCopyAs _
Environ("USERPROFILE") & "\Desktop\" & strSN & ".html", ppSaveAsHTML
MsgBox "Files on Desktop", vbInformation
End Sub

Another option is to use the PublishObjects method. This has the advantage that you can select all or some of the slides to include and may be more accurate.

Sub All_To_htm()
With ActivePresentation
With .PublishObjects(1)
.FileName = Environ("USERPROFILE") & "\Desktop\test.htm" 'change as needed
.SourceType = ppPublishAll
.Publish
End With
End With
End Sub

Sub Some_To_htm()
With ActivePresentation
With .PublishObjects(1)
.FileName = Environ("USERPROFILE") & "\Desktop\test.htm" 'change as needed
.SourceType = ppPublishSlideRange
'change figures make sure slides exist!
.RangeStart = 1
.RangeEnd = 4
.Publish
End With
End With
End Sub

Don't know how to use it?

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation