Make Save dialog box appear

[kimkom]

Hi all,

Is there a way to make the save dialog box appear before ending a PPS show?

I know you can by pressing Escape and the PPS has changed in some way, but I
need to show it after pressing a button on a slide.

Currently I'm using:

Sub ExitPPS()
ActivePresentation.Save
ActivePresentation.Close
End Sub

This just saves without giving the user the option though, not what I need
really.

Any advice?

Thanks,
Michael

 

[John Wilson]

Hi all,

Is there a way to make the save dialog box appear before ending a PPS
show?

I know you can by pressing Escape and the PPS has changed in some way, but
I
need to show it after pressing a button on a slide.

Currently I'm using:

Sub ExitPPS()
ActivePresentation.Save
ActivePresentation.Close
End Sub

This just saves without giving the user the option though, not what I need
really.

Any advice?

Thanks,
Michael

 

[John Wilson]

Is this a pps file opened in show mode by double clicking?

 

[kimkom]

Hi John,

It's a PPS opened via pressing a button on another PPS.

Regards,
Michael

 

[John Wilson]

I ask because you can call the save as dialg by executing the relevant
command bar BUT pps files don't have an edit mode and therefore no command
bars!

You will need to display the save as dialog and write code to sve yor file
based on what is entered.

It would look like this:

Sub saveme()
Dim fDlg As FileDialog
Dim strName As String
Set fDlg = Application.FileDialog(msoFileDialogSaveAs)
With fDlg
.AllowMultiSelect = False
.Title = "Please Save"

If .Show = True Then
strName = .SelectedItems(1)
Else
ActivePresentation.Close
Exit Sub
End If

End With
With ActivePresentation
..SaveAs strName
..Close
End With
End Sub

--
______________________
john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

 

[kimkom]

Thank you John, that does the trick.

Michael

I ask because you can call the save as dialg by executing the relevant
command bar BUT pps files don't have an edit mode and therefore no command
bars!

You will need to display the save as dialog and write code to sve yor file
based on what is entered.

It would look like this:

Sub saveme()
Dim fDlg As FileDialog
Dim strName As String
Set fDlg = Application.FileDialog(msoFileDialogSaveAs)
With fDlg
.AllowMultiSelect = False
.Title = "Please Save"

If .Show = True Then
strName = .SelectedItems(1)
Else
ActivePresentation.Close
Exit Sub
End If

End With
With ActivePresentation
.SaveAs strName
.Close
End With
End Sub

--
______________________
john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

 

[John Wilson]

Glad it helped. You might weant to add a little error checking (eg for blank
file name)
--
______________________
john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html