Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Saving All Open Presentations

Sub Save_All_Presentations()     Dim myPresentation As Presentation     For Each myPresentation In Presentations         If myPresentation.Path <> "" Then myPresentation.Save     Next myPresentation End Sub