Closing


Closing the Active Presentation

This method has no arguments

Application.ActivePresentation.Close 

Application.Presentations("presentation.ppt").Close 
Presentations("presentation.ppt").Close
Presentations(1).Close
objPresentation.Close

Have the changes been saved ?

If Application.ActivePresentation.Saved = msoTrue Then 
   Application.ActivePresentation.Close
Else
   Call MsgBox("changes not saved")
End If





© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext