-
Save dialog in ppt
Im running a macro from excel which opens a powerpoint, inserts a bunch of graphs and texts and then to end the macro I want to open up a "Save As" window.
[vba]
Set PPT = CreateObject("Powerpoint.Application")
With PPT.FileDialog(msoFileDialogSaveAs)
.InitialFileName = *(file location private)*
.AllowMultiSelect = False
.Show
End With[/vba]
this is the code I am using and it appears to work but when I hit the save button... it doesnt seem to save at all for some reason.
does anyone have any idea as to why it doesnt save?
Last edited by Aussiebear; 03-05-2013 at 07:42 PM.
Reason: Corrected the tags surrounding the code
-
The following opens a new presentation in PowerPoint and saves it with the name Test
[VBA]Dim PPT As Object
Dim PPP As Object
Set PPT = CreateObject("Powerpoint.Application")
Set PPP = PPT.presentations.Add
PPP.SaveAs "C:\Users\Doug\Documents\Test"[/VBA]
If you don't want to hard code the name, you could use and InputBox to have the user enter it.
Last edited by Aussiebear; 03-05-2013 at 07:42 PM.
Reason: Added the correct tags to the supplied code
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules