Save file in destinated folder using VBA

Dear all,

I'm looking for a code with which I can save I can save a powerpoint with a timestamp in a predefined folder. So it should be like:

- I press a shortcut
- I get a pop up box
- I press enter and file is saved.

I created an excel file for this (see below) but cant find how to do this in powerpoint. Anybody help on how I can do this?

Dear regards, Marc


Sub SAVEINFOLDER()

Dim FileName As String


FileName = InputBox("Geef hier je bestandsnaam aan")
FullName = team & "FILE.xls"



Const Path = "C:\Documents and Settings\aa471714\Desktop\TEST\"
ThisWorkbook.SaveAs Path & FullName

End Sub

welcome to the forum.

this may get you started:

http://www.vbaexpress.com/forum/show...e-presentation

You cannot use shortcuts in PPt

Tryt this code though

Sub SAVEINFOLDER()

Dim FileName As String
Dim saveName As String
Dim timeStamp As String

FileName = InputBox("Geef hier je bestandsnaam aan")
saveName = FileName & ".ppt"
timeStamp = Month(Now) & "-" & Day(Now) & "_" & Hour(Now) & "-" & Minute(Now) & "_"
Const Path = "C:\Documents and Settings\aa471714\Desktop\TEST\"
ActivePresentation.SaveAs Path & timeStamp & saveName
End Sub