Office VBA - Powerpoint + Sharepoint

[frank387]

Hello,
I wrote a vba macro to help my users to save office documents (word, excel
and powerpoint) to windows sharepoint document libraries.

The macro shows the "save as" filedialog with a InitialFileName as my
sharepoint url.

It works fine with word and excel, but I have a problem in powerpoint with
document libraries with mandory fields (without mandory fields, the
presentation will be saved)

When I save a document in excel or word in a document library with mandory
fields, then a popup windows (webdialog) appears with my mandory fields to
input.

When I save a powerpoint presentation in a document library with mandory
fields,
the popup windows doesn't appear and the presentation will not save.

There is no error message in my vba code

vba code
========
Dim dlgSaveAs As FileDialog
Dim strPath As String

Set Pres = ActivePresentation
Set dlgSaveAs = Pres.Application.FileDialog(msoFileDialogSaveAs)

With dlgSaveAs
.InitialFileName = "http://SERVERNAME/SHAREPOINT_SITE/"
.Show
.Execute

End With


Is there an alternativ methode.

Best regards

Frank