Mega Code Archive
Check the Path property of the Presentation object before using the Save method if you need to determine whether the presentati
Sub saveAs()
If ActivePresentation.Path = "" Then
ActivePresentation.SaveAs FileName:="C:\C.ppt"
Else
ActivePresentation.Save
End If
End Sub