Saveas dialog

[Shinya]

Why saving new document doesn't launch the save as dialog?
Application.ActivePresentation.Save

And

I managed to launch the saveas dialog but how can i get the file name
that was just saved.

With oHostApp.FileDialog(ppFileDialogSave)

' Set file filter flags
Call .Extensions.Add("*.PPT", "PowerPoint Presentation")
Call .Extensions.Add("*.PPS", "PowerPoint Show")

.ActionButtonName = "Save"
.DefaultDirectoryRegKey = "Default"
.DialogTitle = "Save as"
.DirectoriesOnly = False
'.InitialView = ppFileDialogViewPreview
.IsMultiSelect = False
.IsPrintEnabled = False
'.IsReadOnlyEnabled = True
.OnAction = "ProcessSelection"
.UseODMADlgs = False

.Launch
End With

Shin

 

[Steve Rindsberg]

Why saving new document doesn't launch the save as dialog?
Application.ActivePresentation.Save

And

I managed to launch the saveas dialog but how can i get the file name
that was just saved.

With oHostApp.FileDialog(ppFileDialogSave)

' Set file filter flags
Call .Extensions.Add("*.PPT", "PowerPoint Presentation")
Call .Extensions.Add("*.PPS", "PowerPoint Show")

.ActionButtonName = "Save"
.DefaultDirectoryRegKey = "Default"
.DialogTitle = "Save as"
.DirectoriesOnly = False
'.InitialView = ppFileDialogViewPreview
.IsMultiSelect = False
.IsPrintEnabled = False
'.IsReadOnlyEnabled = True
.OnAction = "ProcessSelection"
.UseODMADlgs = False

.Launch
End With

Shin

With Application.FileDialog(msoFileDialogFilePicker)
' set properties as desired

' call the dialog
.Show

Dim vItem as Variant
For each vItem in .SelectedItems
' Display the path to the selected file
Debug.Print vItem
Next
End With

 

[Steve Rindsberg]

Ah. Sorry, ignore my last post. You're using Office 97, aren't you?

' Right after .Launch, add this:

Dim vItem as Variant
For each vItem in .Files
Debug.Print vItem
Next