PresentationBeforeSave

[KarNek]

I'm tring to take care of PresentationBeforeSave event but I have problems.
I use this code:

Dim fd = File Dialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.InitialFIleName = "abc.ppt"
dlgAnswer = fd.Show
If dlgAnswer = -1 Then
Pres.Saved = msoCTrue
End If

My problems:
1. even I save presentation throw my fileDialog, the presenataion is not saved
2. even I set Pres.Saved, PPT shows save dialog again

Can you help me, please

Karol Nekanovic

 

[Chirag]

The PresentationBeforeSave event passes the "Cancel" argument by reference.
Set it to True to make PowerPoint not show the save dialog box after
PresentationBeforeSave event handler is executed.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html

 

[KarNek]

Thank you for answer. It solves my second problem.
But I have still problem with my first issue. Simply, the dialog doesn't
save the presentation even I click SAVE.
Do you know what can be the problem?

Karol

 

[Chirag]

You mean the SaveAs dialog box that you initiated in the handler? That one
just shows the dialog box and returns you the file name. You need to save
the file yourself using the Save(), SaveAs() or SaveCopyAs() methods.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html

 

[KarNek]

When I want to save it with saveAs method there is error message.
I can't to find how to solve it. Can you send me short example how to save
the presentation in presentrationBeforeSave with using the fileDialog.

Thank you in advance.

KarNek