Saving All Open Presentations : Presentations « PowerPoint « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. PowerPoint
3. Presentations

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

 

Related examples in the same category